


: RS chilis Hitt 1 


o-—- = 


pe ep ths 





$$$ 











so 


=. 3 = ——— eS 





CZMLBBO PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 2 
USER DOCUMENTATION 


IDENTIFICATION 


PRODUCT CODE: AC-S428B-MC 
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“COMMITMENT BY DIGITAL 
ORPORAT ION S_NO 





THE INFORMATION IN THIS DOCUMENT IS 

NOTICE ~ D T BE CONSTRUED 

EQUIPMENT CORPORATION. DIGITAL EQUIPMENT C 

RESPONSIBILITY FOR ANY ERRORS THAT MAY Y APPEAR IN THIS DOCUMENT. 
THE 


NO oF gy ogee IS ASSUMED tur USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 













IS A BLISS WHICH RUNS ues 
ISOR AND WHI RCISES UP TO 8 ML11 

»_ AN ML11 A FAST, RANDOM AC- 

Y SYSTEM WITH EC LITY. IT IS MADE 
UP TO 16 ARRAY MODULES. IT IS A MASSBUS 


UP CONTROL S AND A 

DEVICE, AND AS SUCH, CONFORMS TO MASSBUS STANDARDS. 

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR Use WITH THE DIAGNOSTIC RUNTIME 

SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE THE INTERFACE 

TO T TOR AND_TC THE SOFTWARE ENVIRONMENT H CAN BE 
FOR A COMPLETE DES- 


HE 
USED WITH XXDP+, ACT AND P ° 
REFER TO THE XXDP+ MANUAL . 
TION 2 OF 

















CRIPTION OF THE RUNTIME SERVICES 
THERE IS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES IN SE 
THIS DOCUMENT. 
1.2 SYSTEM REQUIREMENTS 

1. PDP=11 WITH 28K WORDS OF MEMORY. 

2. CONSOLE TERMINAL 

3. RH11 OR RH70 CONTROLLER 

4. 1170 8ML11A OR ML11B DRIVES 

5. XXDP+ LOAD MEDIA 
1.3 RELATED DOCUMENTS AND STANDARDS 


THE HARDWARE DESIGN IS EXPECTED TO CONFORM 19 THE STANDARDS SET FORTH 
IN THE MASSBUS SPECIFICATION (DEC STANDARD 159). 


Ly. 3 ee DOCUMENTATION MAY PROVE USEFUL IN LEARNING MORE ABOUT 


1. ML11 ENGINEERING SPECIFICATION 

2. RWSO4 FIXED-HEAD DISK SUBSYSTEM USER'S MANUAL 

3. THE ML11 PERFORMANCE EXERCISER'S PROGRAM LISTING 

4. THE ML11 LOGIC TEST’S SPECIFICATIONS AND LISTINGS 

5. ML11 PROJECT PLAN 

6. XXDP+ USER'S MANUAL (CHQUS) 

7. PDP=11 DIAGNOSTIC SUPERVISOR DOCUMENTATION (SUPINT, SUPFUN, 
1.4 DIAGNOSTIC HIERARCY PREREQUISITES 


ML11 SUBSYSTEM FAULTS WILL BE DETECTED BUT NOT ISOLATED, SINCE OTHER 
DIAGNOSTICS WILL BE AVAILABLE FOR TROUBLESHOOTING THE EXACT CAUSE OF 


SEQ 0005 


Litie 
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FAILURE. A LIST OF AVAILABLE DIAGNOSTIC TOOLS IS INCLUDED IN APPEN- 
DIX A OF THE ML11 FUNCTIONAL SPECIFICATION. 


1.5 ASSUMPTIONS 

2.0 OPERATING INSTRUCTIONS 

THIS SECTION CONTAINS A VERY BRIEF DESCRIPTION OF THOSE PARTS OF THE 
DIAGNOSTIC RUNTIME SERVICES OF THE PDP-11 DIAGNOSTIC SUPERVISOR WHICH 
ARE APPLICABLE FOR THIS EXERCISER. CONSULT THE XXDP* USER'S MANUAL 
(CHQUS) FOR MORE DETAILS. | 

2.1 COMMANDS 


THE FOLLOWING IS AL 





OMANDS rt |e TO THE DRS. ANY 





RECOGNIZED BY ITS FIRSTS CHARA AND MANY C § 
NAY BE MODIFIED BY OPTIONAL SWITCHES WHICH ARE DESCRIBED IN fhe’ Wen? 
DRS COMMAND EFFECT 
START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER °C) 
PROCEED CONTINUE FROM AN ERROR HALT 
EXIT RETURN TO THE XXDP+ MONITOR 
ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME) 
DROP DEACTIVATE A UNIT 
PRINT PRINT STATISTICAL INFORMATION 
DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 
FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 
ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 
2.2 SWITCHES 


SWITCHES ARE USED TO MODIFY PROGRAM OPERA AND ARE APPENDED T0 
COMMANDS. SWITCHES WHICH HAVE MEAN ING 100k THIS EXERCISER AND IN- 
FORMATION ABOUT THEIR USE ARE GIVEN IN THE FOLLOWING TWO TABLES. 
SWITCH EFFECT 
/PASS: DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED FLAGS (SEE SECTION 2.3) 


/EOP:DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
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DDDDD PASSES ONLY (DDDDD = 1 TO 64000). 
/UNITS:LIST Has ah pal ONLY THOSE UNITS th 
HE LIST. 2" EXAMPLE : ZUNITS: :5-7 
USE "UNITS 0,3.5,6,7 (UNIT NUMBERS 
EXAMPLE OF SWITCH USAGE: 
START/PASS : 1000/EOP: 100 
THE EFFECT OF THIS COMMAND WILL BE: 
1. ALL UNITS WILL BE TESTED 1000 TIM 


2. THE END OF PASS MES S WILL BE 
PRINTED AFTER EACH 100 PASSES ONLY. 


ies IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 





PASS FLAGS EOP UNITS 


START K x Xx 
RESTART X x x x 
INUE . 


2.35 FLAGS 
FLAGS ARE USED TO SET UP CERTAIN OPE 
ON ARE CLEARE 
EXPLICITLY SET USING THE FLAGS 

A START COMMAND Ss 








AND ZFLAGS COMMANDS, NO COMMAND 
REMAIN SET OF CLEARED AS SPECIF 





ED BY THE 
FLAG EFFECT 
HOE HALT ON ERROR = CONTROL IS RETURNED TO 
DRS COMMAND MODE 
LOE LOOP ON ERROR 
IER* INHIBIT ALL ERROR REPORTS 
IBE* INHIBIT ALL ERROR REPORTS EXCEPT 





FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) | 





SEQ 0005 
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mes ESP RRR em gpomrs ve 
PRI DIRECT MESSAGES TO LINE PRINTER 
BOE “BELL ON ERROR 
ISR INHIBIT STATISTICAL REPORTS 
IDU INHIBIT PROGRAM DROPPING OF UNITS 
ADR EXECUTE AUTODROP CODE 


* ERROR MESSAGES ARE DESCRIBED IN SECTION 4.7 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. MORE THAN ONE 
GAY BE SPECIFIED WITH THE /FLAGS SWITCH. FOR EXAMPLE, TO, CAUSE 


FLA 
THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS AND TY 
ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS: LOE : IER: BOE 


2.4 HARDWARE QUESTIONS 





omar on 
6 OF T 


HE XXDP+ 
ON WITH A *'Y’* THE RUNTIME 
IMAL. YOU WILL THEN 










You 
SERVICES WILL ASK FOR THE 
BE ASKED THE FOLLOWING QUEST! OR EACH UNIT 
2.4.1 QUESTIONS AND ANSWERS 
1. CSR ADDRESS (172000) 0? 


ANSWER: THE CSR ADDRESS OF OF ban). RH CONTROLLER 
(OCTAL, DEFAULT 172 


2. INTERRUPT VECTOR (204) 0? 
ANSWER: THE INTERRUPT VECTOR ADDRESS 
(OCTAL, DEFAULT 204). 
3. BR LEVEL FOR INTERRUPT (5) 0? 
ANSWER: THE BUS REQUEST LEVEL FOR INTERRUPT 
(OCTAL, DEFAULT 5). 
4. DRIVE NUMBER (0) 0? 


ANSWER : He blag Ss DRIVE iia OF THE DRIVE(S) TO BE TESTED 
(OCTAL, {0-7}, DEFAUL 
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— OR CONTI 
Pp 


2.4.2 SUMMARY OF HARDWARE QUESTION SEQUENCE 


REARAAAAAAAEKRAERE 
* a 
* # UNITS? * 
* & 
RARARAARAAEARARAAEKREEK 
i 
RERARAEEKRREKRRAKKK 
® ® 
* CSR ADDRESS? * 
ad ae 
KRRARERARERERKEKRER 
i 
RARKKEKRAARARKRRARKRKER 
‘4 % 
* VECTOR? 
*% * 
-— RRRRRAARARARARRAAKRE 
i 
RARAAARAAAREAEKRRAK 
& ® 
* BRLEVEL? * 
te ® 
RRARAEARRRAREREKRRARE 
é 
RRAAAAARARAAKRKRERK 
% x 
* DRIVE NUMBER? * 
® & 
RRARAKRAAAARARARREKRE 
2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUEST AFTER A RESTART OR 
c THE RUNTIME SERVICES W FOR SOFTWARE 

THESE PARAMETERS WILL GOVERN TIC SPECIFIC 

OPE WILL BE PROMPTED BY ‘C L) ? 

IF YOU WISH TO CHANGE ANY PARAMETERS.. ANSWER BY TYPING 

Hy'", THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPH(S) . 


INCLUDED IN THIS SECTION ARE est ies ABOUT es ah bat WHICH AFFECT 
PROGRAM RAT QUE FOR SOFTWARE OPTIONS SHOULD BE DISCUSSED 
AND INCORPORATED INTO THIS SPECIFICATION iss SOON AS POSSIBLE, AND CER- 
TAINLY BEFORE SIGNOFF TIME. 


IF A “Z (CONTROL-2Z) IS TYPED AS THE ANSWER TO ANY QUESTION, THE PRO- 
GRAM WILL START TO EXECUTE. | 


IF A *C_(CONTROL=C) IS TYPED AT ANY TIME, CONTROL WILL RETURN TO THE 
DIAGNOSTIC SUPERVISOR. 
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2.5.1 QUESTIONS AND ANSWERS 


1. 


6. 


LIMIT RANGE OF SECTORS TO BE TESTED (N) L? 

ANSWER: TO TEST ONLY A CERTAIN wr OF SECTORS INSTEAD OF AN EN- 
TIRE UNIT. THIS QUESTION IS NOT OPTIONAL, IT 
SHOULD a ae RED "NO* UNLESS THE ANSWER TO THE HARDWARE 
QUESTION *# UNITS ?°° 
gm {Y TO TEST PARTIAL UNIT, N FOR ENTIRE UNIT}, DE- 


THE QUESTIONS WHICH FOLLOW ARE OPTIONAL, AND DEPEND ON AN AFF IRMA- 
TIVE ANSWER TO THE PREVIOUS QUESTION: 
2. DO YOU KNOW THE EXACT RANGE OF SECTORS TO BE TESTED (N) L? 
ANSWER: THIS DECIDES WHETHER TO ASK FOR SECTOR NUMBERS OR 
| BOARD NUMBER. 


THE NEXT TWO QUESTIONS WILL BE ASKED ONLY IF QUESTION 2 IS 
ANSWERED YES: 
3. FIRST SECTOR TO TEST (0) 0? 
ANSWER: THE SECTOR R WHERE TESTING BEGINS 
(OCTAL, {0- FOR ML11A, 0-37777 FOR ML1193. 
AULT 0). 
4. LAST SECTOR TO TEST (LAST) 0? 
ANSWER: THE hast SECTOR NUMBER TO BE € TES! ED 
1A, 77 FOR ML11B3, 


(OC {0-77 or FOR ML1 
DEFAULE 





a NEXT QUESTION WILL BE ASKED ONLY IF QUESTION 2 IS ANSWERED 


5. WHICH BOARD {1-16} SHOULD BE TESTED (1) 0? 
ANSWER: THE NUMBER OF THE ONLY BOARD TO BE TESTED 
(DECIMAL, {1-16}, DEFAULT 1). 
THE PROGRAM OPTIONS INCLUDE: 
1. ADDRESS CHECK 
2. PATTERN TEST 


ee ee ee ne ee ee 


0 LL LLL a seas sstetesnsssssessssenessmnssnesessssmssmeemmes-ns 
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3. UNIQUE DATA CHECK 
4. MARCH TEST 
5. RANDOMNESS TESTS 
DO YOU WANT TO DROP ANY OF THESE FROM THE EXERCISER (N) L? 


ANSWER: THIS DECID : WHETHER TO ASK FOR OPTION NUMBERS. 
(LOG PARTIAL EXERCISER, N FOR COMPLETE EX- 
ERCISER}, DEFAULT N). 


THE FOLLOWING SET Gr QUESTIONS WILL BE ASKED ONLY IF QUESTION 
6 IS ANSWERED YES: 


7. DROP OPTION 1 (N) L? 
8. DROP OPTION 2 (N) L? 
9. DROP OPTION 3 (N) L? 
10. DROP OPTION 4 (N) L? 


11. DROP OPTION 5 (N) L? 
12. ENABLE REFRESH MARGINING (N) L? 
ANSWER: NORMAL OPERATION IS WITHOUT REFRESH MARGINING. 
(LOGICAL, {Y TO ENABLE, N TO DISABLE}, DEFAULT N). 
13. DISABLE ERROR CORRECTION (N) L? 
ANSWER: NORMAL OPERATION IS WITH ECC ENABLED. 
(LOGICAL, {Y TO DISABLE, N TO ENABLES, DEFAULT ND. 
14. ENABLE END OF PASS SUMMARY PRINTOUT (N) L? 
ANSWER: NORMAL OPERATION IS WITHOUT END OF PASS SUMMARY PRINTOUT. 
| (LOGICAL, {Y TO ENABLE, N TO DISABLE PRINTOUT), DEFAULT N). 
15. ENABLE ERROR PRINTOUTS (N) L? 
ANSWER: NORMAL OPERATION IS WITHOUT ERROR PRIN rout S. 
(LOGICAL, {Y TO ENABLE, N TO DISABLE PRINTOUT}, DEFAULT N). 


2.5.2 SUMMARY OF SOFTWARE QUESTION SEQUENCE 
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REAREEAKKAARKKKKE NO 


* OF SECTORS? * 
kktkkhkkkkkkkheen 
i 

YES 
tkkkktkthekken een 


* KNOW EXACT * 
* SECTORS? * 


REERRKKKEKKKKKKKKKE 
Lo 
YES / \. NO 
/ \ 
KHEEKKKKKKKKKKE RHERREREKERKEEEE 
* 1ST SECTOR? * *BOARD NUMBER?* 
RHAKKKKKKKKKKKE RRAKKKKKKKKRKKE 
' : 
ek&kkkkkk&kkkkkhkh ! 
* LAST SECTOR?* : 
KHREKKERKKKKKKKK ! 
' 





v 
(CONTINUED ON NEXT PAGE) 


: 

; 
RREKKKRAKKKKAKKKKK YES 
* OPTIONS? * : 
RHEARKERAEKARKRARKREK REERAARAEARARRARERE 


* DROP OPTION 1? * 


REKERAAKAARAARARER 
t 


MTTTTILTTTT TTT TTT tS 


* DROP OPTION 2? * 


RARERAAARARERAARKE 
3 


REAAAEAAAAAERRERREE 


* DROP OPTION 3? * 


SEEARAAAAARAAKRERARKE 
' 


kktteeeearreeneene 


YES 
* DROP OPTION 4? t----->! 


REEAARARAARARRARREKE 
i 


i 

ee i 
RKRRKKRKRRERERE ES ektekkkeeeeerene i 
* PAT # USED * * PAT # USED * : 
* WITH MARCH? * * WITH MARCH? * : 
tnatnnteneensenns Ktektentekeeeeene 


, : Camm oman ome 
' ERERRERAAAEREREREE 


: * DROP OPTION 5? * 
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! SHEKEAAAAERKAKKEEE 
i ! 


i (eaceueweweccececcecceces 


i 
kkhkhhktkekenenee 
* ENABL REFRESH * 
* MARGINING? * 


ckkkkkhhhhhh hhh 
' 
Kkktkhktkkkheh hen 
* DISABLE * 
CC? * 
Kkkkkkkkhhkeenhee 
' 
KkERKEKKKKKKRERES 
* ENABLE * 
* EOP SUMMARY? * 
RREKKKKERRKRERE ES 
i 
tkkkkkkkkkkkkeeet 
* ENABLE * 
* PRINTOUTS? * 
RKAKKKRKKKEREREEE 


2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUES 
IN A_TABLE THAT . Tae is Ta DEVICES UNDER TEST. 





ORAGE C 
WITH SEVERAL LINES, THE DIALOGUE BECOMES TEDIOUS BECAUSE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


SUPPOSE YOU ARE TESTING A HYPOTHETI DEVICE, THE XY11 WHICH IS 
MADE CONTROL MODUL 


UP OF ONE WITH 8 UNITS (SUB-DEVICES). THESE 
8 UNITS, NUMBERED 0 T o _HA ONE HARDWARE PARAMETER 
THAT CAN VARY AMONG UNITS, CALLED THE Q-FACTOR. 


THE 3 EXAMPLES WHICH FOLLOW SHOW DIFFERENT WAYS OF ANSWERING THE 
HARDWARE QUESTIONS TO ACHIEVE IDENTICAL RESULTS. IN EACH EXAM-~ 
PLE, THERE ARE TO BE 8 XY11°S TESTED WHICH HAVE THE FOLLOWING Q- 
FACTORS: 

UNIT # Q-FACTOR 

0 

1 





@ 
NOUEWN = © 
—=OOOo 











SEQ 0011 


wiicasgiilla 


OO 
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EXAMPLE 1: ANSWER SEPARATELY FOR EACH UNIT 
# UNITS (D) ? 8<CR> 


UNIT 0 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?_ 0<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. 1<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 
CSR ADDRESS (0) ? — 
SUB~DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 1 ? O<CR> 


UNIT 3 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 4 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 4&<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


IT 6 
CSR ADDRESS (0) ? 160000<CR> 
_ SUB=DEVICE # (0) ? 6<CR> 
Q-FACTOR (0) 1 ? 1<CR> 


UNIT 7 

CSR ADDRESS (0) ? eo 
SUB-DEVICE # i. : 

. Q-FACTOR (0) 1 ? 


NOTICE THAT THE +e! VALUE FOR THE Q-FACTOR CHANGES 
WHEN A RESPONSE IS GIVEN. BE CAREFUL WHEN 
SPECIFYING MULTIPLE UNITS! 


AS YOU CAN SEE, THE HARDWARE PARAMETERS DO NOT DIFFER 
SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN 
IS NOT VERY EFFICIENT. 


— FT Sess tassesssusssssnsststsinsnssnstsnsenmineneeneresnences-. sss 
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EXAMPLE 2: USE THE MULTIPLE SPECIFICATION FEATURE OF THE RUNTIME 
SERVICES TO MAKE FEWER PASSES THROUGH THE QUESTIONS. 


# UNITS (D) 2? 8<CR> 


UNIT 0 

CSR ADDRESS (0) ? 160000<cR> 
SUB-DEVICE # (0) ? 0,1<C 
Q-FACTOR (0) 0 ? ofccne 


UNIT 2 

CSR vont ae (0) ? — 
SUB-DEVICE # i. ? 23 
Q-FACTOR (0) 1? O<C 


UNIT 6 

CSR ADDRESS (0) ? 1 <CR> 
SUB-DEVICE # (0) ? 6, a 
Q-FACTOR (0) 0? 1,1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, RUNTIME SERVICES 


WILL BUILD - MANY ENTRIES AS IT CAN ge i Ma INF ORMA- 
P TIONS. THE 


TION GIVEN IN ANY a Be 
FIRST PASS BUILDS 2 ENTRIES, BECAUSE SUB-DEVICES AND 
Q-FA seer THE ORS ASSUMES THAT T SR 


ADDRE 

: ENTRIES — BUILT. 
OND. 
ARE ASSUMED T 


O BE 1 
WERE ONLY SPECIFIED ONCE. 
FIED IN THE THIRD PASS. 









EXAMPLE 3: ACCOMPLISH THE WHOLE PROCESS IN JUST ONE PASS THROUGH 
THE QUESTIONS. 


# UNITS (D) ? &<CR> 


UNIT 1 

CSR eeuti’s (0) ? 1 <CR> 
ICE # (0) ? <CR> 

OM FACTOR (0) 0 ? 0.1.0.,..1.1<CR> 
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AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS 
Patt aioe A BLANK FIELD) DIRECT THE DRS 
T REPLY. 
2.7 QUICK START-UP PROCEDURE 


2.7.1 TO START-UP THIS PROGRAM WHEN RUNNING UNDER XXDP+ 


1. BOOT XxXDP+ 
2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ QUESTIONS 


TYPE "R NAME’, WHERE NAME’ IS THE FILENAME OF THE 
-BIN OR .BIC FILE FOR THIS PROGRAM 


4. TYPE ‘START’ 

5. ANSWER THE “CHANGE HW’ QUESTION WITH ‘‘Y’’ 
6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE “CHANGE SW’ QUESTION WITH ‘W’' 


BE USING ONLY THE 
ARAMETERS. THE DEFAULTS 





DEFAULTS F 


WHEN YOU Ay THIS AND SOFTWARE. PARAAE WILL 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


2.7.2 TO START-UP THIS PROGRAM WHEN RUNNING UNDER ACT 
Uo HE MRE SORDID 
THE "START-UP PROCEDURE IS THE SAME AS THE ONE IN SECTION 2.7.1. 
TO CREATE A FILE USING THE SETUP UTILITY: 
1. TYPE "R SETUP’’ 
2. THE TARGET ENVIRONMENT IS ACT, SO TYPE “‘AC"’ 


3. TYPE THE SETUP COMMAND: 
TUP OUTFILE. yg ee tS EXT 


*SE 
WHERE OUTFILE.EXT = ses 
AND INFILE.EXT = THE i 





























BIN F 
4. YOU WILL reeye AN OPPORTUNITY TO SET UP A PERMANENT 






; ore ION BY ANSWE 


Se eRe 


NO LONGER 
EVERY TINE’ Y YOU START THE PROGRAM. YOU WILL ALSO BE 
ASKED THE LSI AND SOHZ QUESTIONS HERE. 


5. TYPE “ExIT* 


ANSWERING THE HARDWARE 


DEFAULT 
AND SOF YOU WILL 
HANGE HW ? 








SEQ 0014 


——_—_—— |. 





EEE = 
ce cette 
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3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE Sar OF ERROR we THAT MAY BE ISSUED BY 
A DIAGNOSTIC: XTENDED. GENERAL conor _ 


| 
| 











NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC :XXXXXX 
ERROR MESSAGE 


NAME = DIAGNOSTIC NAME 
TYPE oan TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 


UNIT = 0 - N (N_IS LAST UNIT IN PTABLE) 





NUMBER 
TST NUMBER = “TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 


INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE "IER" OR FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE ‘IER’, IBR’’ OR ““IXR' FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 
3.2.1 MESSAGES DURING INITIALIZATION 


DURING INITIALIZATION, THERE ARE 3 ERROR CONDITIONS WHICH CAN BE 
DETECTED AND WHICH CAUSE THE DRIVE TO BE DROPPED: 























CAUSE1 = ° 

peo = * 

CAUSES = ' 
THE ° 3° MESSAGE IS THEN FOLL 
EITHER: | OLLOWED 


(NOT POWERED UP)° 
(NOT AN ML11 UNIT)’ 
(OPERATOR SELECTED TEST LIMITS INCORRECTLY)° 





BY 
TOP SECTOR OF XXXXXX EXCEEDS SYSTEM LIMIT OF YvYyYyyY' 
"LOW SECTOR OF XXXXXX EXCEEDS TOP SECTOR OF YyYYYY' 


3.2.2 MESSAGES DURING TESTING 
AFTER INITIALIZATION, THERE ARE 4 ERROR DIAGNOSES WHICH ARE POSSIBLE: 
MSG1 = ‘==> RUN ML11 LOGIC TEST’ 
THIS MESSAGE APPEARS WHEN AN ML11 


o 


USER DOCUMENTA 


ATION 
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ERROR OCCURS. THE USER 1s 
INST TED TO RUN THE ph tas At ie TO 
SEE IF fan's 
REASON F a: E THAT 


nt? 
THIS NE SSAGE s D FOR DATA 

ERRORS. 

MSG2 = ‘==> RUN ML11 PROM MAINTENANCE PROGRAM’ 


HIS MESSAGE APPEARS WHENEVER ANY 
oF THE FOLLOWING CONDITIONS IS ATRUE 


A) AN ECC HARD ERROR (ECH OR UNC) IS 





DETECTED 
B) AN ARRAY REACHES ITS HARD OR SOFT 
ERROR THRESHOLD 





c) DURING A PERFORMANCE SUMMARY 

AN ARRAY HAS REACHED OR EXCEEDED 
ITS HARD OR SOFT ERROR THRESHOLD. 
MSG3 = ‘SOFT ERROR’ 


A SOFT ERROR IS A CORRE 
ERROR WHICH CAN IA 
REWRITING AND RE 


MSG4 = ‘HARD ERROR’ 


A HARD ERROR IS A CORRECTABLE DATA 
ERROR WHICH PERSISTS AFTER A REWRITE 
AND A REREAD. 








CTABLE 
LIMINATED 
ING. 






DATA 
BY 





ANY WRITE COMMAND HAS 3 POSSIBLE ERROR CALLS ASSOCIATED WITH IT: 


ERROR ERROR DIAGNOSTIC | 
POSITION TYPE MESSAGE CAUSE OF ERROR/ACTION 













1ST ERRDF MSG1 ALL 6 RETRIES F st ol AN ML11 SYSTEM 
E WHICH WAS aay CONSIDERED 
TO BE NON-FATAL. THE DRIVE. 





CONTROLLER FATA. ERROR. DROP THE DRIVE. 
3RD ERRDF MSG1 DRIVE FATAL ERROR. DROP THE DRIVE. 
Y READ OR WRITE CHECK COMMAND HAS 8 ERROR CALLS 


5 Fo FOR SYSTEM ERRORS (WHICH RESULT IN DROPPING nh 
HARD AND SOFT DATA ERRORS (WHICH ARE COUNTED 





THE SYSTEM ERRORS: 
ERROR ERROR DIAGNOSTIC 


SEQ 0016 


EEE 
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POSITION TYPE MESSAGE CAUSE OF ERROR/ACTION 


1ST ERDF MSGI AFTER tind AES autre fe os? 


it Y DO NOT MATCH PERF y ie 
HE Eee LOGIC FAILED. 






















2ND ERRDF MSG1 ALL 6 AL ae, FAI Gas Da oIane , - ma! mgs 
ERROR WHICH 
TO BE NON-FATAL . DROP T THE RIV 
3RD ERRDF CONTROLLER FATAL ERROR. DROP THE DRIVE. 
4TH ERRDF MSG1 DRIVE FATAL ERROR. DROP THE DRIVE. 
STH ERRDF MSG2 ECC HARD ERROR DETECTED. DROP THE DRIVE. 
THE DATA ERRORS: 


ERROR ERROR DIAGNOSTIC 
POSITION TYPE MESSAGE CAUSE OF ERROR/ACTION 


6TH  ERRHRD MSG4 RROR. DURING ERROR CLASSIFICATION, 
Ane oi os (AS If A DATA ERROR 
UPDATE THE 
HARD COUNT F TATED. ARRAY AND 
CHECK THE NEW COUNT AGAINST: THE THRESNOL 


» hain ERROR CLASSIFICATION. 
a N (AS IF A DATA IN 
3 81 aot ea IT <a UPDA 
IATED ARRAY AND 
K THE NEW COUNT NST THE THRESHOLD. 


CHECK 
SOFT E DURING er icere. 
* TRY DID. NOT ANOTHER DATA 

hy Nene) (onare. we. FALL FOR 


PORT W ASSOCIATED yeare Pty CHECK THE NEW 
COUNT AGAINST THE THRESHOLD. 
















7TH ERRSOF T MSG3 


8TH ERRSOFT 











THERE IS A CORRESPONDENCE BETWEEN EVERY NUMBER AND THE PLACE IN THE 
PROGRAM WHERE THE ERROR WAS DETECTED: 


A) THE MOST SIGNIFICANT DIGIT IDENTIFIES THE OPTION NUMBER. 







‘sient » 
F ICANT 


B) THE 2 LEAST SIGNIFICANT DIGITS ARE THE POSITIONAL 
NUMBERS TO IDENTIFY WHERE THE ERROR CALL IS LOCATED 
WITHIN THE OPTION. 





F 
ZMLBBO PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 4-18 
USER DOCUMENTATION SEQ 0018 





C) FOR OPTION 5, THE SECOND MOST SIGNIFICANT DI 
USED TO IDENTIFY WHICH RANDOM TEST IS RUNNI 


EXAMPLES: 


1) ERROR NUMBER: 6 => COMMAND INTEGRITY ROUTINE 
(OPTION 0), ERROR 06 


2) ERROR NUMBER: 208 => OPTION 2, ERROR 08 
3) ERROR NUMBER: 5311 => OPTION 5, RAND3S, ERROR 11 
BELOW IS A SUMMARY OF THE ACTUAL ERROR CALLS IN EACH TEST OPTION: 


1 
: THE *INTEGRITY® ROUTINE: 
; ‘WRITE COMMAND: 


s {seen INTEGRITY 
ieeae INTEGRITY 
GRITY 


$ ieeee INT 


IT Is 


222 
























'READ COMMAND: 
! ; tree INT ei ROUT 
‘ERRDF ; leeee Al ROUT 
' $ 'nene TY ROUT 
'ERRDF - teeee TY 
'ERRHRD 5: leans TY 
'ERRSOF 0); iaeen iW Nour 
'ERRSOF olds ienen TY ROUT 

‘WRITE CHECK COMMAND: 
'ERRDF (12.MSG1,0); TY RROR 
'ERRDF 8 a: ivy 
use iss gS: tees IMeea 
i ERRHRD (1 0): ixees TY 
'ERRSOF T ( MSGS.8); jeeee I TY ROUT 
'ERRSOF T ( olds iaeee INT TY ROR 
i 
OPTION 1: 

‘WRITE COPPIAND: 
'ERRDF (101 .MSG1.0); 'eeaee OPT 
HENRDE (102 R861 0): 'aane OPT 
'ERRDF (103,MSG1,0): !enen OPT 





'CHECK OR READ: 
'ERRDF(104,.MSG1,0); ‘s#e2 OPTION 1 ERROR 04 eeee 
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7 -MSG 
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i 
SemSel-B}:  issse rion EB 








i ERRSOF T ( ae 


7 OPTION 2: 
‘WRITE COMMAND 









328 
wnh= 


‘ERRDF ( 
'ERRDF ¢ 


oMSG1 
oMSG1, 


tweet OPTION 
ixeee OPTION 


CHECK OR READ: 
'aene OPT 


‘ ERRDF (308-610) 0; ixaee OPTION 


2 


MIPORPIPONINININD 


= 

a 

@ 

fd 

% 

dad 
feng dang pesey fee bose Seay Sorat doe 
S2Sessee 












F 


'ERRDF ( ); !eeee OPTION 
LERRDE ¢ d: jou Opt! 
i ERADF ( >: teens 
‘ERRDF ( ): lanes OPT iON 
i ERRSOP or 0}; : an TION 
} eVi35 ieene 
1 ERRSOF 363-05 ‘eens oer ion 
| 
OPTION 3: 

‘WRITE COMMAND: 






$ ieee OP 
e 


); lanes OPT 
*CHECK OR READ: 
te 
loses oer 
pecee 
anne 
igene OPT Oe 
te eke OPT 


He | ae & 
aie 





“MSGI. 








a 








eens 
aan 
kane 
aean2 
saan 
Rene 
e2a8 


2eane 
aeene 
gene 


2eean 
eean 
gene 
eene 
2e2ean 
eean 


| 
sea 0019 | 





E EXERCISER 


H 
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iERRSOET(310-MSG3-03; sees OPTION % ERROR 10 cece 
' 


: OPTION 4: 


‘MARCHING UP: 
!WRITE DATA: 





'ERRDF (401,.MSG1,0); !see2 OPTION 4 ERROR akan 
'ERRDF (309-861 2 0); ; !eeee OPTION 4 ERROR oe shan 
'ERRDF (405 ,MSG1, ): ‘ween OPTION 4 ERROR eene 





'MARCHING UP: 
'CHECK OR READ DATA: 





); !naee OP 
20); !eeen OP 


I 
!aaae OP : 
; I 
I 





SSVsVe2e 
PPLE LLK SE 
MmMmMmmmmrmnrn 





RROR 

RROR 

RROR 

RROR 
‘ERRHAD ( 0); !aeee OP RROR te th te 
'ERRSOF T ¢ 10h ‘ 5; !eeaan OP RROR few 
'ERRSOF T (41 S630) teense OP RROR 19 steer 

WRITE COMP: 

] RRDF ° ' 
iERRDE (419-Meet 2p) 1:93; lenon Sprite ¢ tain 18 Sees 
'ERRDF (414.MSG1, ): leene OPT] ERROR 14 en20 


'MARCHING DOWN: 
'CHECK OR READ COMP: 





'ERRDE ( : !eene OPTION 4 ERROR 15 sen0 
'ERRDF ( : !e@ae OPTION 4 ERROR 16 & fee 
ERD [tees Serion ¢ Eonar 19 sce 
° . eR 
i cemmes te pos ort iON ; ERROR 3 & eke 

REY RROR Serh 
iERRSOF T( 5m bs ineee OPTION 4 ERROR $ Skee 
'ERRSOF "asehe 0): ; lawns OPTION 4 ERROR ene 


‘WRITE DATA: 





s ERRDF (4 3,MSG1,0); ‘!seee OPTION 4 ERROR 23 enee 
‘ ERRDF C436 Ase 0); ‘aaa OPTION 4 ERROR 36 tenet 
TERRDF (4 3 .MSG1, ); ieee OPTION 4 ERROR 25 teen 


‘MARCHING UP: 
‘CHECK OR READ DATA: 


SEG 0020 


ee ee eee we |e ee eee 
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1'ERRDF (4 6.mSGl. ); {ames OPTION 4 E 
fue (esp nser-B}: isass HONS E 
i ERRDF (4 70): inane OPTION 4 
SERRDF(450,MSG2.0); ‘!s#ee2 OPTION cE 
‘ERRHRD(431.MSG4,0): ieee OPTION 4 E 
iERRSOFT (4 ¢-MS 95: ieee OPTION 4 E 
iERRSOFT(433.MSG3.0): ixeee OPTION 4 E 
OPTION 5: 
!*RAND1" ROUTINE: 

IWRITE COMMAND: 
'ERRDF(5101,MSG1,0); !#e* OPTION 
'ERRDF (5102 ,.MSG1, ): !neaxa OPTION 
'ERRDF(5103,MSG1.0): ieee OPTION 

ICHECK OR READ: 

'ERRDF (5104, mSG1.0): !neee OPTION 5, 

‘ERRDF (5105.MS61. d; ineee OPTION 5. 

UE SISO-RSEL-O:fceee STI § 

iERRDE ( ; S60 ieee OPTION 5, 

RReOrTe (iat? power OPTION ‘i 

& ete é 

iERRSOFT( 1.MS AF laeee OPTION 5. 
!*RAND2* ROUTINE: 

'WRITE COMMAND: 

Rar GREET Bh: Iseee geri 
'ERRDF (5 ete ineee OPTION 
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‘CHECK OR READ: 


ee ERE AS- BS: sess Se 
VERRDF (5206,MSG1.0): ieee OPTION 5, 
iaor‘asgy nee): isse Stim § 
i ERRHRD ( ieee OPTION 5, 
iERRSOFT (521 Pati ieees OPTION 5, 
VERRSOFT (5211 iveee OPTION 5, 
!"RAND3* ROUTINE: 
'WRITE COMMAND: 
JERRDF(5301,MSG1,0); !see OPTION S, 





een comb com’ 
. 


ERROR oe 


cred were crett wads cols waht ends ond 


MPD 








RANDS ERROR 01 





kk 
aan 
eat ® 


aanae 
sean 
22a 
take 
eeann 
gana 
Raat 
2eaean 


Raan 
geen 
Seen 


ge2exe 
Raaek 
RR2ae 
kkae 
Sean 
S2ank 
Reae 
geen 


Sake 


SEG 0021 
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'ERRDF (5302,.MSG1,0);  #$‘!se22 OPTION . oe ent 
'ERRDF (3305-msc1. ‘OD: ieeee OPTION RANDS Enron ERROR o¢ Reo 
'CHECK OR READ: 
'ERRDF ( -MSG1,0); !see2 OPTION 5, , aaee 
'ERRDF ( ); |!aee8 OPTION 5, TTT) 
'ERRDF ( -4SG1,0); !seee OPTION 5, rT th 
‘ ERRDF ( Aste, F ‘naee OPTION 5, then 
'ERRDF ( 'eaee OPTION 5, wee 
'ERRHRD ‘aaee OPTION 5, ae 
i ERRSOF T( rie 5 ; leeee OPTION 5; eeee 
'ERRSOF T( ); !aeee OPTION 5, eae e 
!*RAND4* ROUTINE: 
WRITE COMMAND: 
' geo RAND ERROR 
iERRDE (3402°A36! “0 1833 lanee or : RAND ERROR oe ae 
'ERRDF (54 msel lanes OPT RAND4 ERROR thee 
!CHECK OR READ: 
‘ee RAND4 ERROR 
}; inane OPT : RAND ERROR OS sees 
);  feeee OPT » RAND4 ERROR 06 see 
); {fanes OPT e RAND4 ERROR 07 ee2« 
); ‘!aeen OPT » RANDS ERROR ere 
0}: 'aaee OPT » RAND4S ERROR gear 
05: ieeee OPTION 5, RANDS ERROR 10 teee 
); leeee OPT 2 RAND4 ERROR 11 see2 





4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE COUNT I 
SUMMARY Ot far oe “DIAGNOSTIC'S PERF 
STARTED. THE SAME PROGRESS REPORT 
THE es veneay bee (VIA A “C) 
COMMAND. A TYPICAL REPORT FOR 2 DRIVES Is 














PERFORMANCE SUMMARY 


R OF MBYTES TRANSFERRED: 
19 a dd WRITTEN 


MBYTES 
1145 MBYTES WRITE CHECKED 


LOGICAL UNIT: 0 _ DRIVE: 1 SERIAL #: 1234 
SOFT RROR COUNT: 9 


HARD ERROR COUNT: 11 





ARRAY 15: 
TRANSFER RETRIES: 0 
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LOGICAL UNIT: 1 SERIAL #: 9876 
DRIVE DROPPED (CONTROLLER FATAL ERROR) 
SOFT ERROR COUNT : 
ARRAY 13: 19 --> RUN ML11 PROM MAINTENANCE PROGRAM 
ARRAY 15: 80 ==> RUN ML11 PROM MAINTENANCE PROGRAM 
HARD ERROR COUNT: 2 
ARRAY 14: 
ARRAY 15: 


1 
TRANSFER RETRIES: 0 


5.0 DEVICE INFORMATION TABLES 


AT THE START OF THE PROGRAM, AN AUTOMATIC CHECK OF THE SYSTEM 
MADE AND DEVICE INFORMATION SIMILAR TO THE 








CONFIGURATION IS 

FOLLOWING IS PRINTED FOR EACH UNIT: 
LOGICAL UNIT: 0 DRIVE: 0 : 
ML11-A SECTORS UNDER TEST: 300000 1 TO 697777 


TRANSFER RATE: 1 MBYTES/SECOND CSR ADDRESS: 176400 


6.0 TEST SUMMARIES 


THERE IS JUST ONE HARDWARE TEST IN 
IS TO ACT AS A SCHEDULER TO CALL 
PERFORM ALL OF THE TEST CODE. THE 
DESCRIBED BELOW: 


6.1 OPTION 1 (OPT1) 
PURPOSE : TO CHECK ADDRESSES USI 
TRANSFERS ARE 4K WORDS 
ARE TESTED. 
THE CODE FOR ‘OPT1° IN BRIEF: 


BEGIN 1 (START OF ROUTINE) 
SAY ROUTINE IS 






NT 
THE 





NG DATA = SECTOR NUMBER. 
IN LENGTH, AND ALL SECTORS 











INCR COMPLEMENT FLAG FROM 0 TO 1 
: BEGIN 2 (START 4 c T FLAG SELECTION LOOP) 
: LOGICAL UNIT 


FROM 
a (START OF LOGICAL UNIT SELECTION LOOP) 


: BEGIN i (START OF LOOP THAT COMPLETELY TESTS ONE UNIT) 
i IS ACTIVE 


: BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 
ee wire AND READ BUFFER POINTERS 


: : : : WHILE SECTOR LEQ HIGHEST DO 
: : : 3 : BEGIN 6 (START OF SECTOR SELECTION LOOP) 


> -— = 2#.< Pi 
GENERATE THE PATTERN 
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sere BUFFER POINTERS BEFORE TRANSFER 

LOOK FOR ERRORS aL hee att. ob NS TESTLOOP) 
ee o4 10. WRITE CHECK OR READ 
es 6.8 WRITE CHECK OR R 









ris ta S (IF DROP abkeve., TESTLOOP) 
=e FER POINTERS AFTE 
Te) SECTOR wen OY BY NURBE or SECTORS IN PREVIOUS TRANSFER 
t.2-e a TION LOOP 
: TIVE UNIT) 
: END OF TESTLOOP) 
(END OF LOGICAL UNIT SELECTION LOOP) 
: inp " (END OF COMPLEMENT FLAG SELECTION LOOP) 


END 1 (END OF ROUTINE) 
6.2 OPTION 2 (OPT2) 


PURPOSE : TO CHECK ON DATA RELIABILITY USING THE PATTERNS FROM 
THE PATTERN TABLE. 


THE CODE FOR ‘OPT2" IN BRIEF: 


BEGIN 1 (START OF ROUTINE) 
SAY 3 INE IS RUNN 









) 
BEGIN 2 (START OF PATTERN SELECTION LOOP) 
GENERATE THE PATTERN 

NCR LUN_FROM 0 TO LAST 

TESTL 3 (START OF LOGICAL UNIT SELECTION LOOP) 


TESTLOOP: 
: BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
io IS ACTIVE 


: BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 
: ee ae AND READ BUFFER POINTERS 


: SECT 
: : WHILE SECTOR LEQ HIGHEST DO 
ee BEGIN é (START OF SECTOR SELECTION LOOP) 


Pres WRDCN 
URITE. BUFFER POINTERS BEFORE TRANSFER 
e339 (IF DROP UNIT, LEAVE TESTLOOP) 
READ 





feng 








OOK FOR ERRORS 
> : : : : CHOOSE WHETHER TO WRITE CHECK 
ears | Poor Fon duane’ tte 
F thee ee TESTLOOP) 
Ror o F SECTORS IN PREVIOUS TRANSFER 
OF ef SELECT 


AN ACTIVE NIT) 


END 1 (END OF ROUTINE) 


SEQ 0024 


NE - -e 
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THE "LOOP READ* CODE IN BRIEF: 


BEGIN 11 (START OF LOOP READING SECTION) 
: NCR LUN FROM 0 T 
: TEST 12 (START OF LOGICAL UNIT SELECTION LOOP) 


TLOOP2: 
: BEGIN 13 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
_ _" IS ACTIVE 


I BEGIN 14_ (START OF TEST FOR AN ACTIVE UNIT) 
: Ie THE WRITE AND READ BUFFER POINTERS 


so: L 
es : SECTOR LEQ HIGHEST DO 
: BEGIN 15 _— OF SECTOR SELECTION LOOP) 


2:8 > SET™ UP BUFFER POINTERS BEFORE TRANSFER 

: : : : CHOOSE WHETHER TO WRITE CHECK OR READ 

: : : : INCR KOUNT FROM 1 TO TIMES 

: 3: : : : BEGIN 16 (START OF COUNTING LOOP FOR LOOP READING) 
sfete : DO THE WRITE CHECK GR MEAD 

: : : : : LOOK FOR ERRORS (IF DROP UNIT toh“ ie, rest Looe? 

: : : : : END 16 (END OF C 

: : : : CHANGE BUF 














R BY # SECTORS IN PREVIOUS TRANSFER 
(END OF SECTOR yy AB Lo 


1 
: END 12 (END OF LOGICAL ION LOOP) 
END 11 (END OF LOOP READI 


6.3 OPTION 3 (GPT3) 
PURPOSE : TO DO A UNIQUE DATA CHECK ON ALL AVAILABLE UNITS. 
THE CODE FOR ‘OPTS® IN BRIEF: 

BEGIN 1 (START OF ROUTINE) 
SAY ROUTINE IS 


INCR COMPLEMENT FLAG FROM 0 TO 1 

: BEGIN 2 (START OF telat FLAG SELECTION LOOP) 
GENERATE THE PATTERN 
INCR LUN FROM 0 TO LAST 

: ee ake: (START OF LOGICAL UNIT SELECTION LOOP) 


TL 
BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
THEN IS ACTIVE 


N 5 (START OF TEST FOR AN ACTIVE UNIT) 
INITIALIZE THE WRITE AND READ BUFFER POINTERS 
SECTOR = LOWEST 


: : : WHILE SECTOR LEQ HIGHEST DO 
: : : 3: : BEGIN 6 (START OF SECTOR SELECTION LOOP) 
: : : : : GET_WRDCNT 
a. S-3 oT BUFFER POINTERS BEFORE TRANSFER 
LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 





















el 
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: : 2 : : CHOOSE WHETHER TO WRITE CHECK OR READ 
: : 2 : : DO THE WRITE CHECK OR READ 
: : : 2 : LOOK FOR ERRORS (IF DROP LEAVE TESTLOOP) 

: : : : : CHANGE BUFFER POINTERS AF eh fran RANSFER 

: : : : : UPDATE SECTOR NUMBER BY NURBER OF SECTORS IN PREVIOUS TRANSFER 
: :: : ¢ END 6 (END OF SECTOR SELECTION LOOP 

2: 5 (END OF TEST FOR AN ACTIVE UNIT? 
: : = END 4 (END OF TESTL 

: END 3 (END OF LOGICAL UNIT SELECTION LOOP) 
2 END 2 (END 






















be tinn OF COMPLEMENT FLAG SELECTION LOOP) 
END 1 (END OF ROUTINE) 
6.4 OPTION 4 (OPT4) 


PURPOSE : TO LOOK FOR » >; ccs BETWEEN SECTORS 
USING A MARCH TEST 


THE CODE FOR ‘OPT4* IN BRIEF: 


BEGIN 1 (START OF ROUTINE) 
SAY ROUTINE IS RUNNING 

WORD COUNT = 25 

GENERATE A BUFFER OF DATA 

GENERATE A BUFFER OF COMP 

INITIALIZE POINTERS 3 A BUFFERS FOR WRITE/READ DATA/COMP 


NCR L 
: : Teste 2 (START OF LOGICAL UNIT SELECTION LOOP) 


TLOOP: 
: BEGIN 3 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
THEN. IS ACTIVE 


: BEGIN 4 (START OF TEST FOR “3 ACTIVE UNIT) 
: INCR SECTOR FROM LOWEST TO HIGHEST 
: BEGIN s. alg OF 1ST SECTOR SELECTION LOOP) 


; : WRITE ° 
: = LOOK Ag ERRORS LECTION |00e rae Lor) 
















DATAY 





R SEC ge HiGies 
es 48 (START OF SECTOR SELECTION LOOP) 









: : DO THE WRITE CHECK OR READ OF "DATA 

: barre’ RORS (IF DROP UNIT. LEAVE TESTLOOP) 

: : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
: : : : END 4B (END OF USELECT ION OOP) 

CHOOSE “CHECK OR READ COMP" 


CTION LOOP) 
fi.3 TESTLOOP) 


re on ett ect lf Us i te 


ci: H SEC Mle _— LOOP) 





Vee ca ve ce 
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*DATA’ 
2£Ey RRORS (IF UNIT, LEAVE TESTLOOP) 
3 3  E END 4D. (END 4TH SECTOR SELECTION LOOP) 


WRITE CHECK OR ek 
UNIT) 
CEND OF TESTLOOP) 


3 END (END OF LOGICAL UNIT SELECTION LOOP) 
END 7 (END OF ROUTINE) 
6.5 OPTION 5 (OPTS) 


PURPOSE: TO EXERCISE 
MANNER 









THE ML11 $ UNDER TEST IN A RANDOM 
AS TO aay the erates OF TESTING 





TS ee | ARE CALLED BY ‘OPTS’ 
NG. S THE RESPONSIBILITY 
DE TIMES THOSE 4 





REFER TO ‘RAND1* TO 
NFORMATION. 
6.5.1 RAND1 ROUTINE 
PURPOSE : TO TEST USING RANDOM DATA 
THE CODE FOR ‘RAND1" IN BRIEF: 
BEGIN 1_ (START OF ROUTINE) 
SAY ROUTINE IS 


I NBEGIN 2. (START OF REPEAT LOOP FOR THE ROUTINE) 
GENERA PATTERN 

















INCR LUN_FROM 0 TO LAST 
: ay 3 (START OF LOGICAL UNIT SELECTION LOOP) 


BEGIN A (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
4 UNIT IS ACTIVE 


1 BEGIN > (START OF TEST FOR AN ACTIVE UNIT) 
soreaer lee +; WRITE AND READ BUFFER POINTERS 
: 3: WHILE SECTOR Teo H HIGHEST DO 

sse2 a 6 a OF SECTOR SELECTION LOOP) 


® 00 66 08 06 te ag 








GET_WRDCN 
ee oT BUFFER POINTERS BEFORE TRANSFER 


UNIT, LEAVE TESTLOOP) 
CHECK OR READ 


UNIT, LEAVE TESTLOOP) 
AFTER TRANSFER 
BY NUMBER OF SECTORS IN PREVIOUS TRANSFER 
SELECTION LOOP 
ST FOR AN ACTIVE UNIT? 


T SELECTION LOOP) 
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6.5.35 RANDS ROUTINE 
PURPOSE : 


: oe 2 (END OF REPEAT LOOP FOR THIS ROUTINE) 
END 1 (END OF ROUTINE) 


6.5.2 RAND2 ROUTINE 


PURPOSE : TO TEST USING RANDOM DATA AND WORD COUNTS 
THE CODE FOR "RAND2* IN BRIEF: 


BEGIN 1 (START OF ROUTINE) 
SAY ROUTINE I 
INCR COUNT FROM 1 TO REPEAT 
: BEGIN 2 (START OF REPEAT LOOP FOR THE ROUTINE) 
INCR LUN_FROM 0 T 

BEGIN 3 (START OF LUGICAL UNIT SELECTION LOOP) 
oy a THE RANDOM PATTERN 


TLOOP: 
BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
IF UNIT IS ACTIVE 


: SECTOR 5 «tae TEST FOR AN ACTIVE UNIT) 
INITIALIZE THE WRITE AND READ BUFFER POINTERS 
@HILE eee LEQ HIGHEST DO 

N 6 (START OF A PASS peues ALL SECTORS) 


SET UP BUFFER POINTERS BEFORE TRANSFER 
CALCULATE NEXT STARTING SECTOR 2 ON WORD COUNT) 
IF NEXT STARTING SECTOR GTR HIGHEST 
THEN ADJUST THE WORD COUNT AND NEXT SECTOR SO THEY FIT 
WITHIN THE TESTABLE SECTOR LIMITS 


LOOK FOR ERRORS (IF DROP eit LEAVE TESTLOOP) 
CHOOSE WHE KOR READ 































RET 
END 1 (END OF ROUTINE) 





: TO TEST USING RANDOM DATA, WORD COUNTS AND SECTORS 
er: 











THE CODE FOR ‘RAND3S’ IN 
BEGIN 1 (START OF ROUTI 
SAY ROUTINE IS ING 
INCR COUNT FROM 1 TO REPEAT 

: BEGIN 2 (START OF REPEAT LOOP FOR THIS ROUTINE) 
: GENERATE THE RANDOM P, —_e 
: INCR LUN FROM 0 TO LAST 
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: BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 
EE can BUFFER POINTERS 








hs UNIT) 
’ 


T OF COUN ae LOOP FOR SECTOR SELECTION) 





















OUN 
rats real UP BUFFER med Fon BEFORE TRANSFER 
iri: ALCOL ra RE TRANSFER WILL END (BASED ON WORD COUNT) 
ei ck es T Tf FITS 
i eRe aire WITHIN THE vest secon  Alts 
ae OR ERRORS (IF DROP UNIT, LEAVE LABEL) 
: 222 5 POok Fon Ernons (iF IT, LEAVE LABEL) 
ees TER TRANSFER 
sesaee (END OF COUNTING ‘OOP FOR seeron SELECTION) 
ND 5 (END OF TEST FOR AN ACTIVE UNIT) 
(END OF LOGICAL UNIT SELECTION LOOP) 
2 (END OF REPEAT LOOP FOR THIS ROUTINE) 
END 1 (END OF ROUTINE) 
ROUTINE 
E: TO TEST USING RANDOM DATA, WORD COUNTS, SECTORS 
AND UNITS 
THE CODE FOR ‘RANDG* IN BRIEF: 
ie 1 (START OF ROUT INE) 
rae 
O REPEAT 
BEGIN 2 (START OF eocel LOOP FOR THIS ROUTINE) 
GENERATE THE RANDOM P, ATTERN 
TIMES = NUMBER OF UNITS * 
INCR KOUNT 
ICAL UNIT WHICH IS ACTIVE 
eerie BUFFER POINTERS 
oe 4 (START OF 1 oor Fall COMPLETELY TESTS 1 UNIT) 


: : : : : CHOOSE A RANDOM 
“ot 2 a 
reas E UHETHER TO WRITE CHECK OR READ 
4 (END OF TESTLOOP) 
6.5.4 RAND4 
PURPOS 
I 
R COUNT FROM 1 TO 
FROM 1 TO TIMES 
BEGIN 3 (START + COUNTING LOOP FOR UNIT SELECTION) 
OUNT2 FROM 1 


ee 8 Ge Ge G8 Ge 66 ee co hase 







BEGIN no, (START OF COUNTING LOOP FOR SECTOR SELECTION) 
HOOS WORD COUNT 

SET UP BUFFER POINTERS BEFORE TRANSFER 

HOOSE A CTOR 


CALCULAT TE WHERE TRANSFER att END (BASED ON WORD COUNT) 
IF CALCULATED VALUE GTR HIGHEST 

: 3 3 3 = THEN ADJUST THE WORD COUNT SO IT FITS 

ALCS WITHIN THE TESTABLE SECTOR LIMITS 


@e ©@ ee Ge ce ee be 
ee ¢e 66 Ge ce oo bug 





SEQ 0029 


CZMLBBO PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 4-27 SEQ 0030 


USER DOCUMENTATION 
FOR THER (IF DROP UNIT, 
HOUSE WHE Cee WRITE CHECK 
Hatt «oR T, LEAVE TESTLOOP) 
: re coun AFTER f RANSFER 
LOOP Bi. SECTOR SELECT" ON) 
ast & ( ND OF T 


OF COUNTING LOOP FOR UNIT SELECTION) 
: Ew (END OF REPEAT LOOP FOR THIS ROUTI 


END ot (END OF ROUTINE) 


















“on ait TESTLOOP) 





7.0 MAINTENANCE HISTORY 









MODIFIED BY: D.W. NEALE DATE: 18-FEB-82 VERSION: 6 
ALL FUNCTI CHANGES TO THIS DIAGNOSTIC ARE LABLED 
WITH A COMMENT LINE OF ‘VER C g* PRECEEDING ANY 





MODIFIED OR ADDED LINE/BLOCK OF 
FUNCTIONAL CHANGES TO THIS DIAGNOSTIC INCLUDE: 


1. MODIFING CODE TO Lity T Stine OF ML-118 
AND ML-11A BLOCK Y SYST 


HS E fe TER 10 use 
SINGLE BIT ) HAVE BEEN 1 104 ae 
PER ARRAY 
SCOVERED PER ARRAY A 
PORTING 


VERSION °A* PROM MAIN 
ANY TEN SBE°S ARE DI 
RING, THE 
"Ss § CORRECT ON WILL IGNORED. 
ADDING TO THE REPORT SUMMARY CTION AT 
SPORT C CODE 









2. 













we orm 














- REQUEST OF F/S 

ROPES ERRORS DURIN DURING 
LOCATIONS PRINTING OF THI OFABL DURING RE 
PRINTING. 














SEQ 0031 
1 -SBTTL PROGRAM HEADER AND TABLES | 
000000 002000 nian ABS .AMA 2000 
002000 BGNMOD 
as ;_TWe DIAGNOSTIC PROGRAM AND THE SUPERVISOR” 
ig 002000 POINTER ALL 
°C: HEADER (C2ZML8.8.0,1800..1 
1 
1 
1 
000 
102 
060 
000000 BORD 
usuece:: — 
usspcp:. — 
98," LSSOF T 
usspre: “— 
wee" _ | 
LSSTA:: —_ 
L$CO:: woe 
Lsptve: °° . 
tsapt::; “NP! 
'SDTP:: — 
LSPAIO: : -“ORD LSDISPATCH 
Lsenvi:: : 
-WORD 0 








CZMLBBO PERF ORMANC 
PROGRAM HEADER AND 


9 
79 
80 


1 
1 
1 


3 


le 
-— we 


<t 


=i=1 


wadk ood eed ao oat rad veak cad) coals 


7 
x¢ 


-_ i = | —- 
-_ ) | <= 


BSe8 


mS 
xt 


ore cect rent ere 


oSa 


SRELVSSSaoz 


eed od oredt ob malt and cod 


QALHeMUMNMCO 





003 


eee ee 
’ M00 


000000 
002122 
005474 


115 


114 


E EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 1° 
TABLES 


NAMES OF DEVICES SUPPORTED BY THIS PROGRAM 
DEVTYP <ML11> 


LSREPP: : 


we 
95558585555 5 5 


LSTEST:: 
LSOLY:: 
LSHIME::- 


~~ 


LSDESC 
ESLOAD 


LSERRTBL 


LSINIT 
LSCLEAN 
LSAUTO 


SPL 11/ 


SEQ 0032 


a ee eee = 





H 
PERFORMANCE EXERCISER MACRO M1113 29-MAR~82 13:41 PAGE 7 . 
HEADER AND TABLES SEQ 0033 





TEST DESCRIPTION 


85 0021 DESCRIPT <CZMLBB ML11 PERFORMANCE EXERCISER> 
1 LSDESC:: 
1 103 132 115 -ASCIZ /CZMLBB ML11 PERFORM 
rm EVEN 
e : THE GLOBAL ERROR TABLE (INFORMATION 
91 Z USED IN A CALL TO THE MACRO 'ERROR'’) 
3g : 
94 0021 ERRTBL 
, LSERRTBL:: 
17 


3 ee = 2 


; THE DISPATCH TABLE CONTAINS THE STARTING ADDRES OF EACH TEST. 
: IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


| DISPATCH 1 
S 00001 WORD 1 
LSDISPATCH:: 
“WORD 


102712 11 


LSSRLES 


— 





E CONTAINS DEFAULT VALUES OF 
S. THE STRUCTURE Ha TABLE 


URE OF T P- ; 
TE” FOR BUILDING THE P-TABLES. 


THE DEFAULT HARDWARE 
THE TEST-DEVICE PAR? NE 
IS IDENTICAL TO THE S 
AND IS USED AS A “TE 










NOuUnwveose 





BGNHW DFPTBL 
fe 000004 -WORD 110000-LSHW/2 
; LSHW: : 
10 DFPTBL:: 
1 
19 176400 .WORD 176400 
1 14 5 WORD 
16 -WORD 0 
1 NDHW 
$03590 ' L 10000: 





ed ed eed od 


od aed ed 


apnpuse EF 
S8ss 
SSS 
3s 
: 


1S 


a a a 
LEGRERLIS Ss 
xt 


ed cd eed eed eed eed ced eed ee end eed ceed ec ced eed eed 


SSSSNOUSUN IS Ooo 


Ww 


eee cmd ood cma en eed ood and uh weed web amd nd ood aed end om aed 


ESRES 


a 





002256 000000 


© 
3 


3 
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PROGRAM HEADER AND TABLES 
























SEQ 0034 
++ 
; THE DEFAULT SOFTWARE P-TABLE CONTAINS VARIOUS DATA USED BY THE 
: OPERATIONAL PARAMETERS. THESE PARAMETERS ARE SET 
F UP ay ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR AT RUN 
BGNSW SFPTBL 
‘ L10001-L$sw/2 
LS$SW:: 
SFPTBL:: 
LIMIT:: .WORD 0 SLIMIT RANGE OF SECTORS TO BE TESTED 
e = = 
RANGE:: .WORD 0 [DOES OPERATOR KNOW EXACT SECTOR NUMBERS? 
LSECT:: .WORD ; 
TSECT:: .WORD : MOMBER 
Y¥:: WORD : i 
:: WORD s ? = = 
2: .WORD ; = 2 
:: WORD : = = 
ss - WORD b = 4 
as: WORD * “MARC E 
DROPS: : WORD 6 ; O"=" Wo 1s 
REFRESH: : .WORD 3 : = a Pg 2) ee 
e = 
ECCDIS:: .WORD 0 :DISABLE ECC? 0 = NO (LEAVE ENABLED) 
; 1 = YES (DISABLE IT) 

"THE FOLLOWING 2 SOFTWARE PARAMETERS 

; L $ 

; HAVE NON-STANDARD DEFAULTS. ERRORS : 

: AND END OF PASS PERFORMANC ; 

: REPORTS WILL ** NOT #* 3 

: UNLESS T : 

s paupgauaasddereensaceteeeeessentasensl 
EOPSUM:: .WORD 0 sENABLE EOP SUMMARIES? 2 = NO PRINTOUT 
ERROUT:: .WORD 0 [ENABLE ERROR PRINTOUTS? p = NO PRINTOUT 

e = 
EFNS$S21:: .WORD 0 SENABLE SOFT ERROR TESTING 0 = NO (DEFAULT) 


: 1 = YES 
sTHIS OPTION IS DESIGNED FOR MEMORY ENGINEERING 
ENDSw sFOR DMT PURPOSES 


> ee - 


CZMLBBO PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 3-17 | 







HEADER AND TABLES SEQ 0035 
10001: 
197 002264 L1000 
is 
¢ - 
5 : THE HARDWARE PARAMETER CODING SECTION tyes MACROS 
5 : THAT ARE USED BY THE V TO BUILD P-TABLES. THE 
5 MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 





THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 


24 INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. 
5 ; MACROS ALLOW 
; WITH THE OPERATOR. 


BGNHRD 
WORD L10002-LSHARD/2 


LSHARD: : 


QH1,0,0.0,177777, YES 


TSCODE 
QH1 


TSLOLIM 
TSHILIM 


eaeee 





QH2.2,0,0,377., YES 


TSLOLIA 
TSHILIM 
pee 


7 
TSLOLIM 
TSHILIM 


TSCODE 
Qk 





QH3,4 -0,7,1 of YES 





GPRMD QH4.6,0,7,0.7,YES 


7 
TSLOLIM 
TSHILIM 


. EVEN 
L10002: ~ 


QH1: 


t = 


Raapeaiae 
MOR) — 
He 
Run 
OAN 





34+ 
; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 





k 3 
CZMLBBO PERFORMANCE EXERCISER 1 : - 
HEADER ano meee MACRO M1113 29-MAR-82 13:41 PAGE 8-2 





¢ THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 

MACROS NOT EXECUTED AS MACHINE TRUCT 
hg le a 
WITH THE OPERATOR. . — 






BGNSFT 


B 
ass 
e 
: 
: 
= 


LSSOFT:: 


se 





us {3 130 GPRML QS1,0,1.,YES 
00245 OO 2664 -WORD  TSCODE 
3034 FERF 6$ . 
314 06 GORD 
102456 025044 . iad 
in 902460 0011 GPRML QS2,2,1, YES one 
i WORD  TSCODE 
316 008666 XFERF 5$ —_ ' 
sat 002470 , GPRMD  QS3,4,0,177777,0,177777, YES — 
| — 
00247 1 
sens 900000 “WORD TSLOLIM 
ASSERT e TSHILIMA 
318 Oe 20s GPRMD 0S4,6,0,177777,0,177777..YES WORD 
vt ' 00. 
0586 rs] .WORD  TSCODE 
002 506 1 - WORD ase 
02512 ad “WORD TSLOLIA 
320 2 iy 05 5$: GPRMD 0S5,10,D,37,0,15. YES - WORD TSCODE 
909320 003107 WORD TSCODE 
i 7 - WORD os 
0028 f -WORD 3 
i Sow HAItIR 
521 SEE cons 6S:  GPRML_0S6,12.1,YES 
09332 S14 .WORD  TSCODE 
00953. ‘ WORD 56 
22 09836 007024 XFERT 7$ “WORD 
323 00254¢ ore GPRND _0S11.24.D.77.1.10... YES -WORD  TSCODE 
00254¢ -WORD —TSCODE 
303 “WORD 951 
00255¢ 12 "WORD TSLOLIM 
3 “WORD  TSHILIM 


324 00< XFER 13$ 


3 
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PROGRAM HEADER AND TABLES 





325 


326 


327 


328 


329 Oo 
330 


331 


334 


335 


7$: 


12$: 


13$: 


GPRAL 


GPRML 


_—_—___--.--) 


QS7,14,1, VES 


QS8,16,1, VES 


QS9,20,1,VES 


QS10,22,1 YES 


12$ 


QS11,24,D,77,1,10. YES 


0S12,26,1,VES 


QS13,30,1.YES 


QS14,32,1,VES 


QS15,34,1,YES 


QS16,36,1, VES 


QS17,40,1,VES 


110003: 


~EVEN 


TSLOLIM 
TSHILIM 


TSCODE 
gore 


TSCODE 
Qs135 
1 
TSCODE 
QS14 

1 
TSCODE 
as 


TSCODE 
i 


TSCODE 
wr 


stn 


Ld 
ISER MACRO M1113 29-MAR-82 13:41 PAGE 9 ’ 






~ 
Ge 
@ 
br 
a) 
wo 
a 
hs 
us = 
= rr 
Lv) 
~ tee 
a S x 
tee “ [= ) 
” ane = 
= w 
“2 - §& zap 
a 3 = 
= ~ Ss 5 
wSe-e-e: “ S a — 
as ce 8 & 
ar w — 
3 o 
2 o : 
- pen 
s 
ques 
a 






T 
?/ 
?/ 
?/ 
?/ 


XAC 





0s 2 eOreumne 


UPN > 


: 


fi 


RANGE OF § 


5 
- 
a 
3 ust Ad 





=-2 = 

wm omy < -— 
Iau a2awawww 
~~ ~~ SSS SS 





LSPROT:: 
INTO P-TABLE FOR CSR ADDRESS 
E FOR MASSBUS ADDRESS 
E FOR DRIVE NUMBER 


INTO P-TABL 
INTO P-TABL 


LOAD MEDIA. 


sTHIS LEAVES ROOM FOR THE 22 ML-11 REGISTERS TOO 


E_IS USED BY THE RUNTIME 


T. 
T 
-BLKW 32 @ 


ENDPROT 
ENDMOD 


ee @e ©6@ 66 66 @e Ge &e 
ee @e ee ee se @ 
Sno DN LAT 
oogoag Ssgo0ccocg0cCccd0T70 


HK OCOMMNNNNANNICUNE WO OUOW 
Fo OO EE NINININON CO eee 
EE = HHO SS HEE eK Ke 


H SOKA eee SOOO OS SOS 





THE PROTECTION 


; SERVICES TO PROTECT T 


3 ++ 
SPATCH:: 


RRRRRARSS SSS 





: 


PERFORMANCE EXERCISER 
NUMBER GENERATOR 


3 


ac me Ei 


cond com 
~J— 


ke eed eed ed ed eed eed eed eed 
WONOVULS WN OOO wOuUlWwRo 
+444 4-4-4 


ed 


S335 exe cok wah omad 
SRSSSSSF 


EWN 


- 000018 000012 





ie 


N 
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ee eseesesessseeeesesienensetenenneemeeen same 


3 

SEQ 0039 
-SBTTL ‘RANDOM NUMBER GENERATOR’ 
sROUTINE TO GENERATE 16-BIT PSEUDO RANDOM NUMBERS 


: INPUTS: 


NONE 
; IMPLIED INPUTS: egal Pom SEED3 OF guy ™ values —_e will 
be u but not e generat 
Leone CONTAINING pe uboe 6-BIT INTEGER VALUE 


‘OUTPUTS: 
: IMPLIED OUTPUTS: 


*CALLING SEQUENCE: JSR PC.RN 
RN:: MOV RO,-(SP) 
MOV SEED2,RO 
CLC 
DEC SEED1 
ROL RO 
ROL R 
ADD SEED1,R 
ADD SEED3.R 
MOV RO, SEE 
ROL R 
ROL RO 
ADD SEEDS.RO 
ROL R 
ROL R 
MOV RO, SEED3 
MOV SEED2, RANDOM :SAVE NEW R.N. 
MOV (SP)+,RO 
RTS ) 
SEED1:: .WORD 


oe 


ZMLBBO PERFORMANCE EXERCISER 
RATOR 


et 
NOUS WN -OOM~aH 
ee Ge 


ed cd eed ed cand eed ed ed 


MPUIN 
le ed ed ed eed ceed eed eed eed eed eed eed 


a) 


s 


004767 


ie 
SS 


NISGLERISSSRUSSAHLESY 


004767 
000207 


104425 
7 
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35-mar=1969 99:91:30 


MLX3 = 





BEGIN. 
REQUIRE “BLSMAC.REQ’; 

ZSBTTL ‘REPORT CODING SECTION’ 
EXTERNAL ROUTINE 








0 words 


EOP: NOVALUE; 
BGNRPT ; 
EOP(); 
RETURN; 
ENDRPT ; 
-GLOBL EOP 
-SBTTL LAPT REPORT CODING SECTION 
RTS PC 
: Routine Size: words 
: Maximum stack iol per invocation: 
-SBTTL LSRPT REPORT CODING SECTION 
177766 LSRPT:: JSR PC .LRPT 
: REPORT CODING SECTION 
TRAP 25 
RTS PC 


3; Routine Size: 


& wares 
: Maximum stack depth per invocation: 0 words 


SEQ 0040 


TOPS-20 Bliss-16 vote? ; 
PA: <NEALE>MLX3.8L1.1 


1502 

1498 

25-Mar-1982 22:23:37 toes 
f= 

25-Mar-1982 22: 59:30 PA:< 


t 4 
CZMLBBO PERFORMANCE crertaae® MACRO M1113 29-MAR-82 13:41 PAGE 45 
LSRPT REPORT CODING SECT SEQ 0041 


73 ‘— AUTODROP SECTION Sorarn 1985 S5:5780 | pee Snet Beaees 16, V2t212) 





re ; 1308 ZSBTTL *AUTODROP SECTION’ | 
79 : 1 1+¢ | 

80 ; 1510 ! THIS SECTION IS OPTIONALLY EXECUTED IMMEDIATELY AFTER THE INITIALIZATION | 
1 3 1511 ! CODE IF THE /ADR FLAG WAS SET. THE INTENT IS TO EXAMINE THE eis UNDER 

5 ; 1216 TEST TO SEE IF THEY WILL RESPOND. THOSE THAT DON'T RESPOND ARE DROPPED. 

84: 1514 | THIS FUNCTION IS AN INTEGRAL PART OF THE INITIALIZATION CODE ITSELF, AND 

a2 : sai2 THEREFORE A SEPARATE AUTODROP SECTION IS REDUNDANT AND NOT PROVIDED. 

87 : 1319 

88 ;: 1518 BGNAUTO; 

89 ; 1519 

90 ; 1520 RETURN; 

91 ; 1521 

3 3 1522 ENDAUTO: 

97 -SBTTL LAUTO AUTONMROP SECTION 

io 005504 000207 LAUTO: ARTS PC : 1506 

103 ; Routine Size: 1 word 

Ho ; Maximum stack depth per invocation: 0 words 

i 

115 -SBTTL LSAUTO AUTODROP SECTION 

119 005 004767 177772 LSAUTO: : JSR PC ,,LAUTO 3 1520 

i” 005512 104461 T 

} 1 005514 000207 RTS PC 

1 g 3; Routine Size: 4 words 

124 ; Maximum stack depth per invocation: 0 words 


3 


ct ed ed ed eel el eld eel ee 
REEERW pe 
ONOURWN@uOD wn yy 

eed ed ceed ed ced end end eed eel ome ae enc eed 

UIA AA Annan 


iAP 
Ww 
SYERLUNZSS 


a a ey 
FEVISSSY 


ed eed ceed ceed ed od ceed ed eed ee eed eed eet eed eed eed ced ed 


met te te 
wn 
UU 


WEARANISSESE 


233 


ed eed con cand com eed eed eed eed ced eed ced ced ec cor ed ee ccd cae eed 


VA 


w 
in 
ad 


ony TD ed eh toed med td come eed) cond coed eed 


dD 4 
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TION SEQ 0042 | 
-Mar-1 :23:37  TOPS-20 Bliss-16 v2(212) | 
DROP UNIT SECTION Tae et 35:37:30 PA: <NEALE>MLX3.BL1.1 (3) | 
3 ZSBTTL "DROP UNIT SECTION’ | 
5 
THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DRIVE TO NO 
LONGER BE TESTED. WHEN THIS HAPPENS, THE FOLLOWING ACTIONS WILL BE 
| : 
: (1) SET THE DRIVE STATUS TO INACTIVE AND SET THE DRIVE'S DROP FLAG. 
: (2) DECREMENT THE NUMBER OF ACTIVE DRIVES, AND IF ZERO ABORT PASS. 
5 BGNDU; 
1+ 
' DELCARE THE EXTERNAL SUMMARY REPORT CODE 
339 : DATA STORAGE LOCATIONS TO THIS SECTION 
541 
4¢ EXTERNAL 
54 LSLUN, TTACHED 
544 DRIVE_STATUS:Bi TVECTORES). TER 
545 DROPT- DRIVES :BITVECTOR(S], GISTER 
346 _ DRIVES: TTACHED UUT’S TO TEST 
54 
345 LITERAL 
50 INACTIVE = 0, ‘CODE TO DESELECT uuT's 
31 ACTIVE = 1: ‘CODE TO SELECT UUT'S 
3g 
3 i THIS SECTION IS CALLED FOR THE OF 
26 DROPPING THIS UUT FROM FURTHER ‘ STi NE. 
38 ! THEREFORE CLEAR THIS UUT’S DRIVE ACTIVE FLAG BIT 
59 ! AND SET THIS UUT'S DRIVE DROPPED FLAG. 
DRIVE_STATUSL.LSLUN] = INACTIVE; 'CLEAR THE DRIVE ACTIVE F 
DROPT_DRIVESL.LSLUNJ = ACTIVE: ‘SET THE DRIVES DROPPED FLAG 
1+ 
: DECRIMENT THE GLOBAL VARIABLE "NUM DRIVES’ WHICH 
UUT*’S WHICH ARE TESTED BY THIS 





: STORES THE NUMBER OF 
: EXERCISER. 





SSESRETEL ES 


~“ 






: IF THE NUMBER OF DRIVES REMAINING TO TEST IS ZE 
1 { THEN CALL THE CLEAN UP CODE SEC IT THIS 
: PROGRAM ELSE CONTINUE TESTING MAINING ACTIVE 


PN: 


' UT's. 
5-Mar-1982 33:23:37 TOPS-20 Bliss-16 v2(212) 


DROP UNIT SECTION -Mar-19 PA: <NEALE>MLX3.8L1. } 


CZMLBB0 
L 


— ot td o 
e 


SSLILOSLSBRE 


o 


: 
a 


RF 


4 
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E EXE 
CTION 
1575 
26 NUM_DRIVES = .NUM_DRIVES - 1; 'DECRIMENT THE NUMBER OF DRIVES REMAINING TO TEST 
1 
i IF .NUM_DRIVES EQL 0 THEN DOCLN;: 'DO CLEAN UP CODE AND EXIT PROG IF ZERO 
: RETURN; 
1 ENDDU: 
-GLOBL LSLUN, DRIVE.STATUS, DROPT.DRIVES 
-GLOBL NUM. DRIVES : 





-SBTTL LDU DROP UNIT SECTION 


SEQ 0045 


ee ee ees 


CZMLBBO PERF 
LOU DROP UNI 


- 


+t 


7 
2¢ 
y 
7 
7 
: 
3 


> 


~ £ 


KC 


F 
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eseccce 


wo 
teecay 
o 


a co > 
; RNRENRRER 


= 
“ 





PANG 
See 
no 
~N 





© 


LSLUN,.RO 






dV - STATUS ,RO 


T.DR e 
ROPT DRIVES .RO 
oe 
(SP) 
j 
PC 


1 words 
fivinen stack denek per invocation: 


SDU DROP UNIT SECTION 
oLBU 


PC 


4 words 
stack depth per invocation: 


SEQ 0044 


1563 


1581 


& 
ae PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE és 
L DROP T 


UNIT SECTION 


A! sMLXS 





; 13 
74; 1585 
ae 
ji 
8 ‘ 13 
Se 1392 

: 1398 

3 1594 

: LF a 

: 1399 

3 1598 


ADD UNIT SECTION $o-Mar=198S 99:59330 


ZSBTTL “ADD UNIT SECTION’ 


lee 

: THE ADD UNIT SECTION CONTAINS ANY 
BE EXECUTED IN CONJUNCTION WITH 
SINCE THE INI ILL HAVE 
IATELY AFTER 
ANY CODE IN THIS SECTION. 







-SBTTL LAU ADD UNIT SECTION 
LAU: RTS PC 


TOPS-20 Bliss-16 V2(212) 


PA: 


ALEOMLX3.BLI.1 (4) 


SEQ 0045 


1583 


& 
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LAU ADD UNIT SECTION SEQ 0046 





: Routine Size: rd 
3; Maximum stack eoth per invocation: 0 words 


LAU ADD UNIT SECTION 


1 : 
11 ~SBTTL | 
1g B9se38 ibes82 177772 LSAU:: 15k eS LAU : 1596 | 
i RTS Pc 

1 


; Routine Size: 4 words 
1599 : Maximum stack depth per invocation: 0 words 


tMLx3 “Mar-19 3:37 TOPS-20 BLiss=16 v2(212) 
; ADD UNIT SECTION Sahara 1985 9555739 POPS, 20 Bliss-16 v2i212) 
; : 

: ; : 1 END 
: 1603 ELUDOM 


a 


EE ll, ———- = 
-—— —- 


SEQ 0047 


4 
Longe roetreeeri EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE bo 
L ADD UNIT SECTION 





-GLOBL BL 


: OTS external references 


—-TRM 





un 


a 
vo 
: 
a 
ow 
6 
a | 
Qo 
+ 


-—-CMm 
al al 


o 
: 


: 
g 


—y 


NOVUSWN-O ODT 


ed ed eed ed eed ceed ced cmd eed 
Se Sees 


2 
x 


ARUNISSSVRARUVVS 


VIS SSVSUFUNASSESLSEGRESLE 


Or 





EE 
ION 
7-Mar-1982 19:26:46 TOPS-20 Bliss-16 v2(212) 
oe i 19:33:24 PA: T eNEALESMLXG OLY 8-14) ¢ 
1 MODULE MLX4 
BEGIN 
: PERTTY BLF COMMANDS 


i <BLr /NOERRORS> 
je ee KEY> 


require ‘BLSMAC.REQ'; 





si tor= 1006 12 9:58 3; ste TOPS=20 Bliss-16 voter . 


VARIABLES AND CONSTANTS 4 PA: <NEALEDMLX4.BL1.5 
Zsbttl "VARIABLES AND CONSTANTS’ 
Literal 
: VER CZMLBB ADDED LITERIAL TRUE, FALSE AND ZERO 
"ZERO = fo" 000000°. 

TRUE = 

FALSE = "5, 
: OTHER LITERIAL DEFINITIONS 


SeSeoRaSS 





O RETRY FOR DATA ERROR 
0 eatten FOR SYSTEM ERROR 


, i RE TTERNS 
= 2 Ba s 
eto iy mL GiSTERS 
S IN A FULL BUFFER 


MBER OF R OF woRDs IN A SECTOR 
CTORS IN THE BUFFER 






mot 








1 
1 
1 
: 
1 
1 
1 
1 
‘ 
1 
1 
1 
1 
j 
1 
1 
1 
1 
i 


MUIMAMMA 
et eh cb weed ab eh ocd nk end men 





=O OWDNAULE WN =O 


ML11 DRIVE TYPES: 
= Z0°000110°, '16K CHIPS 
= B = f0°000111". 164K CHIPS 


FUNCTION CODES: 


4 
Te erececsace 





SSS 
5 
" 
2 





Ww 
6 Geet te ee 
= 
g ries 
um 
=H 
& 


THRESHOLD VALUES: 


ehh eh nd end ome aah ned ened ond en eal) aed ee) cd cond eurd curd ome amd ond cond 
mM 


RBA PAA DAA 
awk 


ro | 
o 
=~4 


oO 


see 


SSBF 


an 


K 
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SEQ 0049 





RROR, 16K ARRAYS 
RR 16K ARRAYS 


ARRAYS 
64K ARRAYS 








! 
' 
t 
: THE *INTEGRITY' ROUTINE: 


WRITE COMMAND: 
2 'ERRDF(1,MSG1,0); !se22 INTEGRITY ROUTINE ERROR 01 x««« 


— eee 


See eee 





& 
; EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE be 
ON SEQ 0050 




































76 ; 7-Mar-1982 19:26:64 TOPS= iss-1 
? VARIABLES AND CONSTANTS Spmar-1985 19:93:64 Parent ALEsme ka bu ¥57133 
79 ; 1553 'ERRDF (2, ‘wees INTEGRITY ROUTINE ERROR wea 
a : 12 : ‘none’ ¢ !eaes INTEGRITY ROUTINE ERROR 88 than 
: 12 iERADE ( MSG 'eaee INTEGRITY ROUTINE ERROR tenn 
: 1 'ERRDF 'eaen INTEGRITY at ERROR 05 sea8 
; 1 'ERRDF ( 'eeee INTEGRITY ROUT ERROR whee 
85 ;: 1 'ERRDF (7 .MSG1, !'waae INTEGRITY ROUTINE ERROR tktt 
86 ; 1560 'ERRDF (8 ‘ewes INTEGRITY ROUTINE ERROR stan 
+H ; 1561 'ERRHRD !'wane INTEGRITY ROUTINE ERROR tkht 
; 1 iERRSOFT (4 siwewe INTEGRITY ROUTINE ERROR 19 hene 
4 ; 1237 jcuneer :eaee INTEGRITY ROUTINE ERROR 10 *#«« 
91; 1565 i ERRDF ( ieee INTEGRITY ROUTINE ERROR 12 *e«« 
4 ; 1566 'ERRDF ( 'xaee INTEGRITY ROUTINE ERROR 1¢ thw 
93 ; 1567 'ERRDF ( ‘eaee INTEGRITY ROUTINE ERROR i htt 
94 ; 1568 ‘ERRDF ( 'ewee INTEGRITY ROUTINE ERROR 15 sane 
95 ;: 1569 'ERRHRD ( !eeee INTEGRITY ROUTINE ERROR 1g thik 
% : 1570 iERRSOFT(1 63.8) ; {wees INTEGRITY ROUTINE ERROR 17 sea 
oe 1374 tERRSOFT (1 ol)z;ieeee INTEGRITY ROUTINE ERROR 18 *x#« 
99 : 157 i OPTION 1: 
100 ; 1574 ! - 
101 ; 1575 ‘WRITE COMMAND: | 
102 ; 1576 'ERRDF (101,MSG1.0): 'eank OPTION 1 ERROR 01 sane 
103 ; 1577 'ERRDF(102,MSG1,0); ‘sae OPTION 1 ERROR oe BA te 
198 1378 © FERRDF(103°MSG1.0); !enes OPTION 1 ERROR 03 *#es 
106 : 1580 'ERRDF(104,MSG1,0); !eee OPTION 1 
10? : 1581 |ERRDE (1OS-MSE1.00,  innes Govtcal | ERROR 06 sens 
108 ; 1356 feel hho Bad 0) 'xeee OPTION 1 ERROR kh 
109 ; 158 'ERRDF(107,MSG1,0);  'xe22 OPTION 1 ERROR wee ® 
110 ; 1584 ‘ERRDF (108 .MSG2,0); ‘!xee2 OPTION 1 ERROR ake 
12: 1383 jERRHRD COP, MS 0; lease Sprtie | trea 1B cane 
Ps H VJs feaee kee 
at 7 133% 'ERRSOFT(111 mse 0}: ‘xaae OPTION 1 ERROR " Kkeh 
115 : 1589 ! OPTION 2: 
a Z 1590 ! 
118 : 1393 IERADE (ODT ise] .0):  !eene OPTION 2 ERROR 01 
Py : P V2; 'xene keke 
119 ; 1393 i ERRDE (20 -MSG1,0);  #‘!xeee OPTION ERROR ¢ awh & 
it HRs eergaeagioos ees GPO 2 ERR 0B Es 
1 3 : 1596 'ERRDF ( } ‘weak OPTION 2 ERROR fee & 
123 ; 1597 ‘ERRDF ( 'aeae OPTION 2 ERROR 05 xan0 
124 ; 1598 'ERRDF ( 'eaee OPTION 2 ERROR hk 
125 ; 1599 'ERRDF ( !'axes OPTION 2 ERROR keen 
126 ; 1600 ' ERRDF ( ‘gees OPTION 2 ERROR fk em 
127 ; 1601 'ERRHRD (2 - '!enes OPTION 2 ERROR anh 
a can UP 
Py : olay !aane kkk 
130 : 1604 ‘LOOP CHECK OR READ: 


eee ee eee ee ee 


I ee ae a eee renee eencregeesseseuaspnenestentscessenelispnaetsseeseumuenmanr auestnaunnanaenisnssinneinieaeae.dessanes,. ok 


m 
z 


om 

BIRURUNSSSELSSRERSS SRE S 
Se Ge Ge Sete 

es 


wa 
oO 


SSSSVOALANASSHVSALRALSS 


ed ed eed eed eed eh eh ceed ed ceed eth eed cee ced eed ceed eed eed eed ed eed eee ee eed ed eed end 
Ww 


Hn 4 | 
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FORMANCE E 

IT SECTION SEO 0051 

X4 hu tied 13:936 TOPS-20 Bliss-16 ¥2 (2193 

VARIABLES AND CONSTANTS 7-Mar-1982 19:23:44  PA:<NEALE>MLX4.BLI.5 (2) 
§ F(212,MSG1,0); '‘eaen OPTION 2 ERROR 12 saa8 
1603 i ERRDE ¢ 13,MSG1,0); ‘went OPTION 2 ERROR 18 tkae 
1 'ERRDF(214,MSG1,0); !se2e OPTION 2 ERROR 14 se0« 
{ 'ERRDF (215,MSG1,0); 'xaee OPTION 2 ERROR 15 saa 
1 'ERRDF ( 16 MSG2 0) !aane OPTION 2 ERROR 1g athe 
Eig FERRARD GT AMSG2 600; [sete OPTION ¢ ERROR 17 sees 
1612 I ERASOFTCSTS-RS DD: inwee OPTION 2 ERROR 3 eae 
1614 OPTION 3: 
1 iWRITE COMMAND: 

1617 i ERRDE ( 4 AS6! 0): 'nane OPTION 3 ERROR 01 *200 
1618 'ERRDF ( g-MsGl. );  !eeee OPTION 3 ERROR ¢ Hh he 
Hy 284 fo re all !'xaae OPTION 3 ERROR skhe 
16st i ERRDF ( MSGI >; 'xeee OPTION 3 ERROR hhh & 
1 ; 'ERRDF (305 ..MSG1.0); 'eaee OPTION 3 ERROR 05 sen0 
1 'ERRDF (306.,.MSG1,0); ‘sexe OPTION 3 ERROR ahh 
16246 'ERRDF ( -MSG1,0): ‘wxae OPTION 3 ERROR kek 
1625 'ERRDF ( ); ‘!xeen OPTI ERROR tee wt 
1 ' ERRHAD ( 0): inane OPTION 3 ERROR 09 teen 
1627 i ERRSOFT( 0); leeee OPTION 3 ERROR 10 sea 
iss - ERRSOFT ( 11,MSGS,0); !xee2 OPTION 3 ERROR 11 «a00 
16 OPTION 4: 
i IMARCHING UP: 
1 ‘WRITE : 
16 ‘ERRDF (401 .MSG1,0); 'aeen OPTION 4 ERROR 01 enae 
1635 'ERRDF 0); ‘een OPTION 4 ERROR gant 
1 'ERRDF(405,.MSG1,0); !see20 OPTION 4 ERROR KR 
iB ra 
1639 VERRDF(404,MSG1,0);  !*ee OPTION 4 ERROR 04 eee« 
1640 'ERRDF (405 ); {amen OPTION 4 pneon eae 
1641 - 'ERRDF (4 );  !xean OPTION 4 ERROR weet 
ions ‘ERRDF ( ): 'eaee OPTION 4 ERROR kee 
164 'ERRDF (4 ); {fee OPTION 4 ERROR aahe 
1644 i ERRHRD ( 0}; ines OPTION 4 ERROR 09 seen 
1645 ‘ERRSOF T 0): ieee OPTION 4 ERROR 10 eene 
ing carne 20); !see OPTION 4 ERROR 11 eee 
ep Hemet Rest eee gon § pan 1g so 
1650 ‘ERRDF ( 0): ines OPTION 4 ERROR 14 sane 
1) RN ae 
168 ig ( ds 'aaan OPTION 4 ERROR 15 sean 
1654 'ERRDF ( );  !eeee OPTION 4 ERROR 16 keen 
1655 'ERRDF ( ); ‘ween OPTION 4 ERROR 17 vane 
1656 'ERRDF ( : ‘!weee OPTION 4 ERROR 18 sane 





CZMLBBO PERF ORMAN 
LSAU ADD UNIT SEC 


sPALX4 


ond ond od 


= 


ed eed ed wed ed eed ceed eed 
BSSLFARRAS 


on ey 
NaSSeeERERTS 


weet ed a8 eed ed ed od 


0 
1 
§ 
4 
é 
7 
9 
1 
: 
& 
> 





CEE 
TION 


nO 
= ™N 


ed ceed ceed eed eed enc ceed ee eed eed 
AS 


AOA 
SSSSSs 


AAA 


a ee ee ce ec ee cee end cee ee ee cee ed eee ee ened eee ec eens ee 
~~ 
Sane 


oO 


SERPS ISSSSSE PETES 


ARAVLSSS 


ed ced eed ed eed eed eed oh eed ceed eed eed eed eed ee ed eed eed eee ee eed eed 
ba | . 
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VARIABLES AND CONSTANTS 















jeanoe (419 ses 0; 'eaet OPTION 4 ERROR 19 saan 
ineee OPTION 4 ERROR 20 seee 
if ERRSor re frases oF ineee OPTION 4 ERROR 21 «nae 
1ERRSOF I (Gee, inawe OPTION 4 ERROR 22 saan 
'ERRDF(423,MSG1.0); ees OPTION 4 ERROR 23 teex 
TERRDF(426,MSG1,0): ieee OPTION 4 ERROR 26 tae 
iERRDF (4 5 MSGI 0); iweee OPTION 4 ERROR 25 sane 
iMARCHI 
' CHECK TA: 
i ERRDF ( );  !eeee OPTION 4 ERROR 6 ieee 
i ERRDF (4 ); ieee OPTION 4 ERROR 27 sane 
iERRD );  !eeee OPTION 4 ERROR 28 anne 
iERRDF (4 );  !eeee OPTION 4 ERROR 29 sane 
{ERRDF (4 21705, 'eeee OPTION 4 ERROR 30 seen 
ieee OPTION 4 ERROR 31 seen 
JERRARD 4 34 iweee OPTION 4 ERROR 32 sane 
{ERRSOFT (4 ieexe OPTION 4 ERROR 33 x00 
: OPTION 5: 
1*RAND1° ROUTINE: 
iERADE (S107 MSGI ); Ieee OPTION 5. RAND1 ERROR 01 
}ERRDE (310 MSGI ); ieee OPTION 5° RAND1 ERROR g 
{ERRDF (510 MSG1,0): ineee OPTION 5° RAND ERROR 
104.MSG1,0): 'neee OPTION 5, RAND ERROR 06 
5.MSG1,0); ‘sees OPTION 5; RAND? ERROR 05 
MSG1,0); ixeee OPTION 5° RAND1 ERROR 
0); ‘ewes OPTION 5, RAND] ERROR 
d: ‘xaexe OPTION 5, RANDT ERROR 
0}; ieee OPTION 5° RAND] ERROR 
03; ieeee OPTION 5° RAND] ERROR 10 
aSGS. ); Ineee OPTION 5° RAND? ERROR 11 
-MSG1.0); !#se% OPTION 5, RAND2 ERROR 01 
oMSG1,0); sees OPTION 5, RAND ERROR : 
MSGI, d: 'aean OPTION e RAND cRRGOR 
oMSG1,0);  !*se8 OPTION 5, RAND2 ERROR 
-MSG1,0); isee2 OPTION 5° RAND? ERROR 05 
-MSG1,0); ieee OPTION 5° RAND? ERROR 
MSG1,0); ‘sees OPTION 5. RAND2 ERROR 
):  !eeee OPTION 5, RAND? ERROR 
0}; jieses OPTION 5° RAND? ERROR 
0): ‘eee OPTION 5, RANDO ERROR ' 
); linea OPTION 5° RAND? ERROR 1 


ea 
iERADE ie Somme: 61,0); 







iewee OPTION 5, 


N 4 
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S7-mar=1968 19:93:46 





Ra2aR 
kkak 
gkan 


RRaee 





TOPS-20 Bliss-16 ¥2 (216) 
PA: <NEALE>MLX4.B8L1.5 ¢ 


SEQ 0052 


2 
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: FIELD DECLARTIONS 


ield 

VER CZMLBB ADD FIELD DECLARATION 

FIELD DECLARATION TO MAP THE SINGLE BIT 
! ERROR LOG TABLE. 


i 
# 
; 


SBE_TBL_MAP = 


BSE = 68: 8: 2: 8 88 Bis eB 


CEE 

ADD TION SEQ 0053 
44: 7-Mar-1982 19:26:4 TOPS-20 Bliss-16 V2(212) 
42 : VARIABLES AND CONSTANTS Shara 1983 19:98:40 PA: <NEALE>MLX4.BLI1.5 (3) 
7: 1709 'ERRDF ( 61,0); !se=* OPTION 5S, RAND3 ERROR 02 eee 

; 179 ‘ERMOr (3308-81 AIF !eaen OPTION 3° RANDS ERROR 8 Ree 

: 1718 (ERRDF(5304.MSG1.0); !*e* OPTION 5, RAND3 ERROR 04 se0« 

; 171 'ERRDF ( -MSG1,.0); ‘see OPTION 5, RANDS ERROR heen 

; 1714 'ERRDF ( -MSG1,0); ‘ane ere , RANDS ERROR thee 

; 1715 'ERRDF ( ); !eeee OPTION 5, RAND nee 

: 1716 i ERRDF ); {eeee OPTION 5, RANDS ETROR 08 eee 

: 171 i 0); ieee OPTION 5; RAND3 EAROR 09 exee 

; 1718 0} ieeee OPTION 5, RAND3 ERROR g seve 

3 4. 20); {eee OPTION 5, RANDS ERROR 11 *e00 

: 1721 iwRI 

: 1 ' ERRDF ( ‘ ); i a RAND4 ERROR whee 

: 1 ' CHECK 

; 1 'ERRDF ( ); . RAND4 ERROR atime 

: 1 ' ERRDF ( ); » RAND4 ERROR 05 sae« 

3 J 'ERRDF ( ); - RAND4 ERROR ae 

$ 1 'ERRDF ( ); , RANDS ERROR nene 

: 1 'ERRDF ( ); , RAND4 ERROR keke 

; 1 HERRMRD 0}; » RANDS ERROR _——- 

; iERRSOF 0; ; RAND ERROR 11 sees 

: 5 S FOR WHY A UNIT WAS DROPPED: 

; 1 121, {DRIVE NOT POWERED UP 

: 1 = ¢- ‘DRIVE NOT AN ML11 UNIT 

: 1 = 3, 'OPERATOR SET TEST LIMITS INCORRECTLY 

; 740 4=4, 'FAILED ALL RETRIES FOR A NON-FATAL ERROR 

i 741 = 5, ‘CONTROLLER FATAL ERROR 

3 P4 6 = $. IDRIVE FATAL ERROR 

: 7a 8 = 8; ‘ECC LOGIC FAILED TO DETECT ERROR 


me ced od eed eet eed eed we cme eed ed woth md ed ce ed eed eed ed eed ee 


ERR UCNehnnr 
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SEQ 0054 
SMLX4 7=-Mar-1982 19: TOPS-20 Bliss-16 v2 (212) 
; VARIABLES AND CONSTANTS $hort 58S 13 :3¢: i PA:<NEALEDMLX4.BLI.5 ( 
: 1761 BIT$_SBE = CO, is 3) 'LOG BIT OF SBE 
: 176 UN ., 608.” iLOG UNIT OF SBE 
; 176 SUNS_SBE = = iLOG NUMBER $ OCCURING 
: 17 WRD$-0 = £0, x ne iACCESS FIR OF TABLE 
; 1765 WRDS-1 = [1 IACCESS SECOND WORD OF TABE 
: 1706 ' tes, 
10 ; 7 : VER CZMLBB ADDED FIELD DECLARATION 
12 : 1770 | FIELD DECLARATION FOR PROM MAINTENANCE 
} 3 : 44 | SUM TABLE 
He | Saad 
e € 
3 : 1775 PM_SBES_SUM = (0. 16, 0] 'ACCESS NUMBER OF SBE PER ARRAY 
: 2, = 
: 1778 : FIELD DECLARATION FOR PATTERN TABLE 
g : 1780 PATMAP = 
$ 178) 
4 é 1 COUNT1 = 0, 0. 16, oi. 
5 : 1 COUNT2 = [1. 0. 16. 
: 1784 tes; 
1786 
a 6 own 
>: 17 ! 
J; 1 ! Single bit error logging and Prom Maint 
31; A program storage structures 
§ : 1793 i VER CZMLBB ADDED FOLLOWING THREE DATA DECLARATIONS 
35: 179 SBE_LOG : ,blockvector (128, 2, word] field (SBE TBL MAP),  !SBE LOCATION TABLE 
536; 1794 SBE CNT : rs blocavector C6, 1 16, word] field (PA SBE ) Y SBE TALBE 
537 ; 1795 : ‘COURTS R oF SBE LOCATION TABLE ENTRIES 
$38 1796 ISTORS FAILING SBE CHIP NUMBER 
: 1798 -11 EXERCISER STORAGE ALLOCATION 
: 1 $12] volatile. ‘IMPORTANT == WBUFF AND RBUFF MUST 
: 1 $12) volatile, iBE CONTIGUOUS AND IN THAT ORDER! ! 
5: i 
5: 1 
; 1 
49 ; 1 COMP COUNT : : vole til 
»; 1 EOP_TOUNT : volatile, 
; 1 BASE_ADDR, 
: 1515 BR LEVEL 
5% : 1312 SOFT : blockvector (8, 16). ‘COUNTS FOR 8 LUNS, 16 ARRAYS EACH 


5 
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ZAL BBO PERFORMANCE £ 
ADD UNIT SECTION 
SPLX4G 7-Mar-1982 19:26:4 TOPS-20 Bliss-16 V2(212) 
y : VARIABLES AND CONSTANTS oe it 19:54:44 PA: <NEALESMLXS BLY <5 (3) 
: 18 HARDS : blockvector (8. 16]. ‘COUNTS FOR 8 LUNS, 16 ARRAYS EACH 
: 1 TRIES : blockvector ty 183° iCOUNTS FOR ; L 16 ARRAYS EACH 
1; 1 COUNT if BYTES TRANSF Reb VIA "WRITE 
; 1 THOUSANDS , iTHOUSANDS OF BYTES 
: i C ig BYTES TRANSYERED VIA "READ’ 
5: 1 THOUSANDS, 
; if COUNT !# BYTES TRANSFERED VIA ‘WRITE CHECK’ 
: 8 “THOUSANDS, _ 
59 : 1é 
Ds 18 
72 : 1 
4 ; 13 
: 1829 global 
; 1é ML_REG : vector COU REGS. volatile, 
; 18 : vector [ atile, 
&#: 18 : bitvector fs volatile, 
, s 18: : bitvector volatile, 
7+ ; i vector (8, byteJ, 
82 : 183¢ “vector volatile, 
BS 18: vector £8) volatile: 
85 : 1839 EQUALS: 
56; 1840 
3 1843 ; 
589 ; 1845 i TO CALCULATE THE TEST RANGES FOR A PARTICULAR LOGICAL UNIT: 
91 M1845. LOWEST = 
92 : 1846 .LOW_SECTC.LUNIZ, 'THE FIRST SECTOR TO TEST 
393 ;: a1 HIGHEST = 
94 ; 8 ,-TOP_SECTC.LUNIZ, 'THE LAST SECTOR TO TEST 
96 : 1850 «| ADDRESS IN MAIN MEMORY THAT CONTAINS THE PHYSICAL DRIVE 
97 ; 31 ! NUMBER THAT CORRESPONDS TO A PARTICULAR LOGICAL UNIT: 
99 : m 185 DRIVE = 
00 1854 (.PTABLE_ADDRC.LUN] + 6)2, 
2 : i i ML=-11 REGISTER NAMES: 
: a1 2 MLCS1 = 
: . 59 LL REGLOIE. 'CONTROL AND STATUS REGISTER 1 
e = 
; a 1 .ML_REGC1I2, ‘WORD COUNT REGISTER 
e = 
: 1 -ML_REGC2]2, 'UNIBUS ADDRESS REGISTER 
410 : 41 ALDA = 


SEQ 0055 
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ee 
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SEREREE 


5 
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oe 
+5 | . 


= 


BINNS 


tv we + 


+ 


> <> Caen Came Cae Gan Cae Pe oe ae, Pe 


¥ 
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~- 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
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1 
18 
1 
18 
1 : 
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1 
: 
q 
1 
7 
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SVVSes 


md weed cen) ore cust ed aad cod card: ced) ad oe fh nad ond end 
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412 ;MLX4 


VARIABLES AND CONSTANTS 
; 1, 
meso 
ae 4%, 
AL REGES I, 


sm REGCEIT, 


AL (738, 
ML REG(8IZ. 
ML REGLIIZ, 
AL ; ec1038, 
-ML_REGC11)2., 
me Reel 1232 
melee, 

e MES ’ 

AL REGL16I2. 
-ML_REGC15)2, 

= 

-Mi_REGC162, 

MLEE = 
-MLREGE1732. 
-ML_REGC182, 

ALPD = 
-ML_REGL19I2, 

= 
-ML_REGL20I2, 
ALCSS = 
-ML_REGL21I2, 
BIT ASSIGNMENTS: 









! 
§ 
! 
: MLCS1 BITS: 
SC = 
(MLCS1)<15,1>2, 
= 
(MLCS1)<14,1>%, 
= 
(MLCS1)<13,1>2, 
DVA = 
(MLCS1)<11,1>2, 
RDY = 





SRO Whee Pager e en 


!DESIRED ADDRESS REGISTER 
!CONTROL AND STATUS REGISTER 2 
IDRIVE STATUS REGISTER 

'ERROR REGISTER 

'ATTENTION SUMMARY REGISTER 
!PROM ADDRESS REGISTER 

!DATA BUFFER REGISTER 
!MAINTENANCE REGISTER 

!DRIVE TYPE REGISTER 

!SERIAL NUMBER REGISTER 

'ECC REGISTER 1 

'ECC REGISTER 2 

'DATA DIAGNOSTIC REGISTER 1 
!DATA DIAGNOSTIC REGISTER 2 
'ECC ERROR REGISTER 

'ECC ERROR LOCATION REGISTER 
!PROM DATA REGISTER 

IBUS ADDRESS EXTENSION REGISTER 
!CONTROL AND STATUS REGISTER 3 


'SPECIAL CONDITION 

' TRANSFER ERROR 

IMASSBUS CONTROL BUS PARITY ERROR 
'DRIVE AVAILABLE 


SEQ 0056 


F 5 
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oo oner = 1986 13:99:44 TOPS-20 Bliss-16 ye (21g) 
























2MLX4 
469 : VARIABLES AND CONSTANTS 7-Mar-19 PA:<NEALEDMLX4.BL1.5 ( 
471 : 1917 (MLCS1)<7,1>2, ‘READY 
47g : 4 1918 IE = 
475 : . 191 (MLCS1)<6, 108, ‘INTERRUPT ENABLE 
° = 
475 : 19 (MLCS1)<0,6>3, 'FUNCTION (COMMAND) CODE AND GO BIT 
4 ; 1998 ! MLCS2 BITS: 
479 : m1 DLT = 
: 19 (MLCS2)<15,1>%, 'DATA LATE 
: = 
: - cmucs )<146,1>2, WRITE CHECK ERROR 
: = 
: 1 (MLCS2)<13,1>%, 'PARITY ERROR 
5 : m 1931 ri = 
: m 19 (MLCS2)<12,1>%, INON-EXISTENT DRIVE 
$ = 
: . 4 (MLCS2)<11,1>%, INON-EXISTENT MEMORY 
: = 
: a (mu CS2 )<10,1>2, ‘PROGRAM ERROR 
$ = 
: . (MLCS2)<9, 1>2, | IMISSED TRANSFER 
$ = 
: r 1940 ames? $<B.1>%, 'MASSBUS DATA BUS PARITY ERROR 
: = 
$ 1308 (mese)<7,1>%, 'OUTPUT READY 
g Mm 194 aH a 
; ‘. 1946 (MLCS2) <6, 1>8, | ‘INPUT READY 
e = 
; 1946 (MLCS2)<5,1>2, ‘CONTROLLER CLEAR 
3 mM 194 PAT = 
: 1968 (MLCS2)<6,1>%. ‘PARITY TEST 
3 M 194 = 
; . 1950 (mcs <3, 12%, 'UNIBUS ADDRESS INCREMENT INHIBIT 
s = 
: : (MLCS2)<0,3>2. 'UNIT SELECT 
: 1 ! MLDS BITS: 
3 1955 § 
3 m7 ATA = 
; " (MLDS)<15, 198, ‘ATTENTION ACTIVE 
e = 
: if (MLDS) <14, 1>%, ‘ERROR SUMMARY 
e Ss 
; . mbshci2.1>8, !MEDIUM ON LINE 
: ‘ (MLDS)<10,1>8, 'LAST BLOCK TRANSFERRED 
> = 
; . (MLDS) <B, 108, ‘DRIVE PRESENT 
s = 
; 1 (MLDS) <7, 1>%, IDRIVE READY 
; a1 VW = 





No 


o 


CZMLBBO PERFORMANCE 
LSAU ADD UNIT SECTION 

4 :MLX4 
>: 

; 199 
ei Re 
yim 1988 
in: 
5: m 19 
i aie 

: m 1981 
368 | Mm 1985 

: 1 
ei 
a: | 1389 
249 m 1991 
50 ; 1936 
51; M 199 
2g : 1994 
ie 
as 
SP 4 3333 
39 : 

: 4 

; a 

; 24 

: F 

; m2 





5 
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VARIABLES AND CONSTANTS 
(MLDS) <6,1>%, 
: ! MLER BITS: 


DOCK = 
(MLER)<15,1>2, 
= 
(MLER)<14,1>2%, 
= 
(MLER)<13,1>2, 

] = 
(MLER)<10,1>2%, 
= 
(MALER)<9,1>Z, 
ECH = 
(ALER)<6,1>Z, 
= 
(MLER)<5S,1>2, 
CPAR = 
(MLER)<3,1>2, 
RAR = 
(MLER)<2,1>Z, 
= 
(MLER)<1,1>2%, 
= 
(MLER)<0,1>%, 
‘ ! MLMR BITS: 





SZ = 
(MLMAR)<11,5>%, 
TYP = 
(MLMR)<10,1>2, 
TRT = 





7-Mar~1982 19:26:46 
oe its 19:23:4 


‘VOLUME VALID 


!DATA CHECK 

!DRIVE UNSAFE 
‘OPERATION INCOMPLETE 
‘INVALID ADDRESS ERROR 
‘ADDRESS OVERFLOW ERROR 
‘ECC HARD ERROR 

!DATA PARITY ERROR 
‘CONTROL PARITY ERROR 
‘REGISTER MODIFICATION REFUSED 
‘ILLEGAL REGISTER 
TILLEGAL FUNCTION 


'SYSTEM SIZE (# ARRAY CARDS) 
‘ARRAY TYPE (0=16K;1=64K CHIPS) 
! TRANSFER RATE 

‘REFRESH MARGIN 

!PROM READ/WRITE 

!PROM DISABLE 

!DATA CLOCK 

‘DATA DIAGNOSTIC MODE 

‘DATA CHECK ENABLE 

‘ECC DISABLE 

‘ECC DIAGNOSTIC MODE 


TOPS-20 Bliss-16 V2(21 
PA: <NEALE>MLX4.BLI.5 ( 


SEQ 0052 
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—--——e J 
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SEQ 0059 
; 7-Mar-1982 19: JoPs=20 Bliss-16 v2(212) 
rns VARIABLES AND CONSTANTS Spomera 1985 | 9:55: tf PA: <NEALE>MLX4.8L1.5 
: 021 ! MLSN BITS: 
; 595§ : 
: 0s cm 3n<12,62%. 'HIGH ORDER DECADE 
: 2 1056 (MLN) <8,4>%, ITHIRD DECADE 
+ ; = 
; : 3028 © (MLSN)<4,4>%, 'SECOND DECADE 
: " 508 CALSN <0,4>%, 'LOW ORDER DECADE 
: 032° «=! MLEE BITS: 
95 ;: 4' 53 4 
: mM at UNC = 
90 / 3035 (MLEED<15, 192, 'UNCORRECTABLE ERROR 
© ’ ‘ = 
299 : . 03: (MLEE)<14,1>%, 'SINGLE ERROR 
; IH crc = 
$1 ‘ 039 © (MLEE)<13,1>2, 'CRC ERROR 
oe ‘ ' = 
608 ; ¥ 3041 (MLE) <6,6>%, !CHANNEL IN ERROR 
% ; = 
605 : 1043  (MLEE)<0,6>2; ‘ERROR FUNCTION 
609 : ¢ 5 external 
609 5047 iHEADER INFORMATION: 
S11 3045 Ernst, | ! VER CZMLBB EVENT FLAG TO TURN ON SBE TESTING 
Sig 5 950 LSUNIT. | 
e Z : 2051 LSLUN 
615 : 088 HALL OF THE SOFTWARE P-TABLE LOCATIONS: 
S17 055s 
ois o 4' 
619 : sf 
1: 5089 
gi 5061 
* -ve 
; 306: 
. +" 
. 4! . 
e = UC . 
‘ +5 
: 4: 
: 07 


72 'RANDOM NUMBER GENERATION VALUES: 


SEQ 0060 
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TOPS-20 Bliss-16 ¥2 (2193 
PA: <NEALE>MLX4.BL1.5 (2) 


SF mar-1988 19:98:60 
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MLX4 


ee S SEES REED. 


& 
~~ 
— 
a 
Ra 
hee 
io 
é 
thee 
ney 
t 
= 
oS 
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THE PATTERN TABLE: 


Rnaunnnnruraranr 


OOOODDOD0O0OSO 


PATTERNS 


REGULAR 


s 
= 
3 
5 
5 
S 


ws 








DATA 





io) 
a 
3 
rv 
fee Fm FO 
= s $s 
S - re 
WY *eees ®*®e*e# es 
< eee 
s Baaas 
3385655 
= ” NW 
( EEE EE 
Z2zz2 
Orwaw 
3 
gem 
OR. DWAS 
wr 





PATTERNS 


COMPLEMENT 


VALUE OF VALUE OF 


i 
v7 


5 


Ssoossusesesess 
ooo 





i) 

<« S09COSOO eee 
bee ee Ee ye Ew Gao Gem gee qo Go Ge 
<« OooOoooo eeree- 
QPCR C ESF Sree e 





eh 


» 102 
102 


SS 
eaas 
Ss 


THE TWO ASSOCIATED COUNTS 





IBBLES OF DATA 


ON 
1 
ay 
9 








global 





SSBSESISESESTE 





eee nreereeEnaeiteemnmeemsmeenesiineemmemetiiiitinn ee 
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692 ;MLX4 7-Mar-1982 19:24:4 TOPS-20 Bliss-16 V2(212) 
638 : VARIABLES AND CONSTANTS Somer 1385 19:32 PA: <NEALE>MLX4.BLI.5 (3) | 
| 
695 ; 125 !<BLF/NOFORMAT> 
696 PATTBL: blockvector CNUM_PATS/2,2] field(PATMAP) | 
698 : 1 = Zdecimal'0’ , 'FOR PATTERNS 1, -1, 6, =6 
; 1 cimai'1024', 
Q ; i ° !FOR PATTERNS 2, <2, 7, <7 
: - 1FOR PATTERNS 3, -3, 8, <8 
206 : 1 g4i 'FOR PATTERNS 5, -5, 10, -10 
mi : 
: 139 '<BLF/FORMAT> =” 
710 ;: 140 
21] : 161 bind. 
ae F 168 ; DEFINITIONS OF LOCATIONS WITHIN THE WRITE AND READ BUFFERS: 
715 : 145 1256-WORD WRITE DATA BUFFER 
216 : 146 i WRITE COMP BUFFER 
717 : 14 READ DATA BUFFER 
218 : 168 OMP BUFFER 
719 : 14 JUST BEYOND END OF FULL WRITE BUFFER 
720 : 150 !JUST BEYOND END OF FULL READ BUFFER 


CZMLBBO PERF ORMANC 
LS$AU ADD UNIT SECT 


SOU 


~N 
Be Se Se Ge Se Se Se Be Se Se Ge Ge Se Se Sete Ge Ge Ge Se Ge Be Be Ge 


—s 


w 


749 ; 


3 


SSELSS KARAS IAI ARAVA 


SS. 


x 


76 


E 
I 


POPONIPINSNUNININOPINOPOPINoNoNoNoNoNoNoMonononony 
— 
SSVI 


nd eed ced ond cath ed cmd ed rad eed ond eed end eo ceed 
VOUS UNAS SELES AFAR 
: 


EXERCISER 
ON 


gl ee a es esessaseiiiitnneasitasstyrenneusstusenssruussnussmash dstemndeenssemmniiiissinioinasces ss 
K 
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MESSAGES AND PRINT FORMATS | Sy-mar=1983 19:93:04 


od end 
WCONOAUE Wy 


med ced ceed ond wed ced eed 


Zsbttl ‘MESSAGES AND PRINT FORMATS’ 
: SINGLE BIT ERROR LOGGING TABLE MESSAGE STRINGS 


bur 1 = uplit (Zasci 
FMT . = ADER sus (hanc 1" 2NZD1ZA(D) 
SBESHE 


SINGLE BIT ERROR ob 9 SUMMARY R 
lit (Zasciz‘UNIT @: (DZEACD) mato ADD - 


SPECIAL PURPOSE FORMATS (WITH SAMPLE PRINTOUTS): 


1 

1 

178 

179 

180 

181 

1 

1 

1 

185 

1 

1 

1 

1 

1 

Ht 

i 

194 : 

1 fy A 

i 

: 

TOEAIL 

1 FAT 108 
2 


FMT1A = uplit (asciz*£NZT2S2%D2") 

' "PATTERN 

FMTIB = 

in2 = uplit (Zasciz'ZS22zT'), 
(NOT POWERED UP) ° 












l Fe(aeneagcHS7ETESIA-102") 


(NOT AN ML11 UNIT)* 

(OPERATOR SELECTED TEST LIMITS INCORRECTLY) 

(ALL _RETRIES FAILED FOR A NON-FATAL ERROR)’ 
ER FATAL ERROR) * 


11 PROM MAI 
si iz’ "INEAS*ESSTESLTIDSESEAG®* ), 


ate BesTeAs :ZS2D1ZS42ZTZA:ZS2D1"), 


I 
ciz ISeSTXA: :3S206"), 
722z72° 

c 


2° 2S42TZA:3S2012D1201201"), 


iz*ENETESSEASECTORS UNDER TEST: ZSZ062SEATOXS206") 
Hee HK TO YY YY" 
iz' Hf woensSETEA ATZS2T2S206"), 


ae 


Cc 
ee 
Zas 


22Z7Z22Z" 





TRANSFER RATE: ZTZA MBYTES/SECOND'), 


al R t tha ES: 
ent = 4 = th fase (PES AR rua :3S2D5"), 


aA it t ¢ ase i 2° ENZTZA: ESERTESEOGESCEABOARDEDSES2ZABANKED2 ’ ) : 


Bs = uglit. (Hasciz AS2E00) T2D8" es 


TOPS-20 Bliss-16 ¥2 (21 ; 
PA: <NEALE>MLX4.8L1.5 


PORT") 


DezACDS 1 pet) OIA"), 


SEQ 0062 


ee ee re ee 


SEQ 0063 


TOPS-20 Bliss-16 oe a + 
PA: <NEALE>MLX4.BLI.5 (3) 


y’ 


DATA: Z06%A AT LOCATION %06'), 


ON YYYYYY 


Spmar=1989 19:98:44 


EXCEEDS %1%S%06") 
TEM LIMIT OF YYYYY 
OP SECTOR OF YYYyyy' 








YS 
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TI 
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Ss 
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fray 
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< 
Ca) ra 
So 
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s * 
~~ 
8 = 
> Fe 
>cu 
o> Ww 
ef > RRR 
—>PMe « 
<t>a- 
aS rede 
z5e : 
ome wn ie 
— Q- 
en woe . 
° Ye az 
We — 
LY) beat 
see @On 
- & tem 
3 $3 
Si 8: 
”" wW~ 
is 
mem ~ 
es 
<0 zad - 
>) 
24 
~~ & 
ow pms | = | 
OK CUMTNOR. DO 





NANA 
NNNNNNNNNNNNNNNNNNNNNNNANNNNNNANANAAAAN 





Bakery, 


fT") 
ZS2T¢SkT') 
ZTZSLTLS 


asciz‘ZNZTZS 


Ciz*2NZTZSZTISZTZS 


sciz*ZNZT") 
asciz‘ZNZTZS 
asciz'ZNzT 


Tre? Seast “Se Sao! Sao? 


MESSAGE MAPS: 
l 
l 
t 
l 
l 


= UM TN 


id FERGS-. 


VAVUUUUMAUAM MAMAS Se Sets oe et oe 








Sere Op Spe Ogee Oe ed ened ced cand ened ened cond cond ead cand eed ced ame cane ceed coed eed 


~ Sagggassssssssssssssgs 


” 
z ee ee | 


nunun 
NOR. ON 





~_Begeeeegeenesseceesess. 


e-CurM) 
MWnAw 





mcucucucucucu 


SRRERERBSRSREEREEREORE SSNSSRENE 


SE REEE SESS SRNNSSSRNNaE 
QD 8 GO GD GO 6D GO 0 GD 


et eee scent spent -_—_—— -_— 


SEQ 0064 
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PA:<NEALE>MLX4.BL1.5 (3) 
S 


TOPS=-20 


WY 
b— 
ten 
5 
Bay 
ww 
S 
= 
w 
pee) 
wr 

a 


COUNTS & SECTOR 


COUNTS 
- WORD COUNTS 


RANDOM DATA 
DATA & WORD 
» WORD 


Sp-mar-1989 19:53:44 
DATA 
DATA 


% 
tm) 
oe 
= 
ong 
: 
> 
‘= 
me 
3 
Lew 
~— 
=z 
borg 


é 
& 
“a 
° 





RAND4 *) 





ciz‘ 


333333333 oe 


efateietetetereteteraretatets 





‘vue MS 4 ” ws 4 an 
CEEEEE: 

SouUeecue 
Oo et dd bet be) 44 64 be Gt bt he be es 


Pe ed Bd bed bed Bd hat rm ope ogee ge gm ope Spm sym Oye 89m Ogee tome Ogee ope Ope 
Fm Om Ope Ope Ope pm Ope 8g ed ced eed eed eed eed eed eed eed ceed ce ceed cece ced eed 


seessegggSSSSsssssssssss 





nunnnuunn 
OF CUM FN OR.COM wT 
_.gueegeerererecteds 


DAA SODOSOSSOORARKRARAER SOMOS OSS ORE 


ML-11 BITS: 


MESSAGES AND PRINT FORMATS 





° car 


sesnaaesyase95 7% Rpt TE ST TTT SS 





. . . 


eivr @L* @h* @he @he@ 


TEM ERRORS FOUND"), 


} 
) 
fy 





i 
R*) 
ITS SET: 
T NO SYS 


PEELE 


20 gee Ogee Ogee Ogee Ogee Ope Ogee Ope Og ered amd 


sssssssss 


HHT 


SEER RSOSOSOS 





2S OOOS 


sncheees 


*i* @L* @i* @tLe @L* « 








ES nnpeeesennnnnenenneeerereeeenere..... 
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SaUSURUN ESET OR ORS BELESRE 


© 
UMEUIN— 


MESSAGES AND PRINT FORMATS 





7-Mar-1 
Zasciz' y ioed '*3. 


eed coed ceed ceed cand coed cond end 


WOONAUE Wire 


ciz° 
sciz' 





[coset onal eed iene anal aoeell eae 
bg he maby ade mabe oly nda ade ones 
ePeeerrrr ct 


3 











Zasciz‘2'), 
Zasciz'1'), 
Zasciz'.5' j 
Zasciz’.25'5, 


PHR 
PHR 
PHR 
TR 
TRT} 


(Zasciz' (NOT POWERED ee ts 

(Zasciz' (NOT AN ML11 UNIT) 

(Zasciz* (OPERATOR SELECTED ‘lee LIMITS INCORRECTLY) *), 

(fase iz’ (ALL RETRIES FAILED FOR A NON-FATAL ERROR)*), 
*(CONTROLLER FATAL ERROR) "), | 

(fasciz" (DPIVE FATAL ERROR) "), 

(Zasciz’ (ECC ERROR) °) 

(Zasciz' (ECC LOGIC FAILURES"), 










LOGIC TEST 
PROM MAINTENANCE PROGRAM’), 


LED TO DETECT DATA ERROR‘); 





the tia 4 5 19: $3: 742 eae Bliss-16 vey! ; 
982 19:23:44 A: <NEALE>MLX4.8L1.5 


D NOT OCCUR, BUT THE TRANSFER IS COMPLETE"), 


SEC 0065 





TOPS 
PA:< 


SEQ 0066 


vs 
oN eN an 
ww ee ee 
oe 
™~ 
~~ 
™~w se 


16 
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wey 
© 
2 
: 7 oo & S 
~™ Vs “Se SM SS TS ST, YT HS J tala ade za ~ ™~™ ™ ™ “ 
6S “SgenSsS"Bepacnes. 886 Bsa “Ss. “Bases 5 .2ee 
a 2 ~V~ ™ ™, “a ee eS SSN SSO ~ ~~ Ss Ss 
3 yw uw mg mag Og Og Og meg Oey Sang Ong Ong Oey ng Og Day Oo Oy Oy my Og Oony toeg Oy Oy Oomg Sony Sag Sang Omg doy Heng Orang bang Sung Seng Song Sung tony deg may Oop Pg eg ng Og 
ow ban be ben ben ben ben ben ben bem ben ben ben ban ben ben ben ben benben ben Len lan le ber lee ee ee ee ee ee feet toned Ores Og 
ax Ce L VV VIII IIVIIVIVVQ PEEP ER EEE es <eaa 
So eee ®ees ®*ee*eeeee#e#eese® & e®ees 
e fone ee ow te _ 
= 2 = 3 * 
- Ez a! a Qe 
x ver 
—- mii Or TFT VOwvon.ne-oO 32 eel a | Otyue- Cy 
S $x,  sSEressgShesss SessSSSSSsSsSSSS FZ FASS 
= f 
ra 
-_ ZARA MMe AOU t- 2 oeem 
S - SSeS aera r BBS SSS SSSSSSLISIIISISEE | «ESS 
= 
= 
x< “ ad Ald NNR OMS eK Wn Scaloal emer WANS 
“3 Mesh Soon Se Se ABCANTSVSSHSISASSSSSSSSSHSISSqLN «=—- NENG 
ww 
ua 
NG 
So X  — ( BBRRSSSSECRASOARSISARSSSKRRSSO LANs YS 
ws =. ete tere ?. >_> _?>_ +??? ?_.?_?_?_.?_.?_¢_¢+_+_¢-+ 46-46-4444 2422723757375" 
3 Romana 
i nso ye rogues Rag aDERGGISESIDISESECERES EE RaUDSDEDERE 
7 J 








ES 


SEQ 0067 
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g 

Vv A fa) A 

$ $s S S $ 
SSLSSVfSVVSPBwWw VW POVVBVeonr VBBVVWPWWWwVYVRBRBWBWwBweBaeay ®WAWA ~™ 
Su .S.. SgsSERe\ahaacone saunas Reteeatastncasite 
See JS LE PRN C NEMO & MCU KM WNNS ~-> SS SSS 
Pd Og og Song Pod Od eg eg eg eg eg ang og og eg Seg egy Og Seg ny ong Soy Ong Seg Oey Ong ag eg meg Og ay ag eg Sey Oy Seg Gang Oy Ong Sang Song Oey oy Song Homey dong Ong ag 
a an-ben ban. ben. ben. ban ben ben ben ben. bee ban bee be ben ban ben ben. bee, ben ben ben ben ben ban ben ben.ben. ben ben ben len lanierlesLe LL eee 
22222222222 22999922992202999272223 


5 
oS 
ad Re 
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— 
w 
ee 
ny 
wo 
~ 
co 
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™~ 
| 
mee 
rf 
_- 
= 
& 
ed 
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i 
ed 
x 
Fd 
~s 


rer 


2 


a. 


i 
ae a. oa. 
SRESBESE BSZAIIFSEBIY 
S3ESRAZIENS 

3 


Sor SIAR IIAIS SASSI GNIS SSS SASS 


P.AAH: 


OWOMO-—-MOooOr wt 


S$-S3=-SSSmNS 


Min 
eo Em 


Oo-OOowoo0omwonm 


S-SSHSSSEzq 


ONUMMA TS mn 


MANAWN ei 


=ONSNSSSRoSSSS 


P.AAI: 


SRNSSS BZE= 33 


eMe 


= 


wy we 
NVR Sow 


NGSSONSSSISS SION SSE 
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SSSI 





Seer eeeeeeeeeeelele eee SS SS 
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3 4 5 8 
2.8 

~ ~~ ™ v ™~ ~ v= == SSS ™ ™ ™, ™ “ Ma“ MM TM 
Rexees 3 gras ve assess 85 S528 
v= ™ SS ™ ~ ™ “, “, “, ~s S S “SS SS, SR, SR ~—.S SSS. 
nd Song Seg Sg Sag ong ng eg Og Seg Og Ong ag ag Seg Oey eg Ong Og Omg Oey Ong Org Sang Oxey Oey Og Oey Omg Smeg Sang Geng Heng Ong Ong Ooag Hg Saag Snag dong eeeg Oey Orag Oey Heng ang dang Cag Omg Song Oy Oma 
bap-ap->ap>arhanan-ban-ban-an- ban ban ben ban ban. ban. ban. ban ban ban ben ban ben ban ben bap ban ben ben ben ben ben besten lenberlerie ie ee 
P9099 99 I I II BB BBB OU O UU COU VOU OOOO 
PEEE PEPE EP EPP EP LEP EEEEEEEE PEPE E EEE EEE EEE P EP EP EEE EEE: 


3 3 


eo Ae 
a a a a 
SE SEMBSESLERAGLIASAASEY YISIEGSSINY Sorstgegss-se 


me Fee FE MNONINMM MeO FF MOMK & own Ohvre eet. ORK. 
Wr Sr SSSSSN SRI IINSBSNSNSHSSNSNBSVESRSSS= LSSSNISATALS 


P.AAQ: 


eae aoe Gee Ges qren Gee Pee Ge pen GS 


PATON = CHAAR Me HWA MA tN Nee Fn lAwnN ww PR PEWMAMN EF KH RA 
SOBA SSS SRA BST NSS SSIS SSS SK SENS SSNA GS GSH SSS gSr5= 





FSSESSSSSSESSS 


aa a al el te a A tS A 





SEQ 0070 
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A fas 

S S 
S = ss 4 & 3 A S 
A Q s Se ben A MCU. 2438 ACU SA hd Pad a ~ mare vy Me eapeny ~ 
ga8 Secceassessaunees IRASRS EAR SEae Saenger 
YS SSSSPRLVRAVAWAVR WAAAY AA =~... VARA ~S..S.WVBwWaQWraS& 
nd Od ng Od Og Soy og Oey og Sang Oo Og Ooeg Og Og Og Oy ag Oey Org Og Oy Hany Omg Oey Og oy Oey Gog Ong Oey Omg Ong Oma any amg Oy dey Ong Ong Heng Sang Bang Song Ong Gog Oony Ong Seng Ong Oy Og 
Sond Og Og ang Sond oy Oop eg Oo Sang Soy Seg eg omg Seg me Song Om Coy Sang Som Soy So Say Sony Sy Oo Deny OG Day Sony Saag Hong Ong Deg aay Goa eg Oey Seeg Oop Ong Gon Oe Sone Omg Ong Omg Sang Ong Omg Deng 
PP OPO 909 9 I III I I I BI BV OB VOU BBV BBO OU OU OU OOUOOOLUU 
PEP EEE PEE EES ERE PEEP EEE EEE EE EEE ERE EEE EE EEE EEE EEC PELE, 


a. a. a a 


sh. a 


SSSSSSSSS=SZ BAABBBESE BBY BBINY BNGX BNINYSWNgxseg 


P. AAT: 


sMLX4 


DWEeEKTNTFTONN Miro ODMAFAMMAS 


TOK Fh FOR DATNAOWMST 
SESERZHSRTNETSLSSSNNL GY NAS SBEIN Soxysegngnsssxgnsx 


SR ASS Seer tare ee it Pest Far art Sar a rae Oe rar ae Le 


con a = - _ = = - - -~ - 7 - ~ - ~ ~ = _ > ~ an 





- - ~~ it 7 7 _ ss ~ - - oo ~ ~ => — ~ ~- = = _ as ~ ~~ _ = ~ = _ - - _ ™ - -_ 


RARARRRASSYBSSISSSREMCEKLRLR SE VISSSBESRENTSLST SESE IALTS 


eng eee ree ee ae nF ee 
FEEL EE GE EG EG GG FF Gm Ge Ge Ge ge Ge Se Gg 


——— —_— ~ 


SEO 0071 
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SSH SSRN SS—S 
Se ek el >) ok ek od Cae cel el oa 
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Beasy Pome brag Somey tren Bere) Bomny 
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Breeg bare teeny bang fey beep hong Geog beng deg tang hong bros 
Goeey Pieces fog feng (remy Gnng trang feng deny bong home Qoeg fog 


aadddddddddaddddddddttt tt 


MOIMOOOOon 
Deng bbecst fheeat Gorey deme Geng Lene frog bevy 


@ 
bees Praag frosy then fonag fences borat Dong hung tung ag feng feng funy fey 


“ 


deag emp Gong Gane theme dung 


PEPE >> >>> >>> 
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teed Boog hong Games tee fered Done Booms fons, ag Bug frece bung feat Pome Derg fons 


eee eee eee. 
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13:41 PAGE Pe . 





7-Mar-1 
ML11 INTERRUPT SERVICE ROUTINE soner=1 
/ECC/ 

<00> 

/W1T/ 

/4/<00><00> 

/AND/ 





/MDP/ 
/ |S, aaa 
/ oy laa 


DPA/ 
/R/<00><00> 
/R/<00><00> 
/DCK/ 


19:26:4 
19:53:64 


SEQ 0072 


TOPS 
PA:< 


| 


| 
| 
| 
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ML11 INTERRUPT SERVICE ROUTINE 


sPALX4 


A A A AOA aA 

SSeS. wa gl a 4 > 
SFaESE ESS BASASTSASaS TS oSSe SUSU ENS ee eeeO EUS, Seok 
SSS VV {se fQ WW {Qwa*W{® WR VWeQa Qn Aq°aQa{Aa Qa VRUQVLwan Quan {nnn VuVnr 
Ong ng Omg Og Sg Ooms Soy Omg Song Oe Omg Sod Og Soy So Sang Soy Soy Omg Soy Oey Oy Sa Soy Dog Oey Soy Oy Omg Sang Ory og Ong Ong Oey Soy Hoy Sag Sy Oey Seay Son On San Omg Oma Ong Omg Song Ong Gong ag 
F909 090909 I I I I BBB BOY BU COU OU VOU OU VOU OOOO 
PEEP PEPE PEEL EDEL EP ED EP PE DED EPEEEPE PEELE PEPE EE eee eee 


3 x<>nme oaw «& = ~ 
: 222222232332 2 8 @ 8 
a a aaa a a2 a a a a a. a. a. 


a 
a. 
WOFMe-OMO wow ~ ~ 
ceroreue © SNSNSNS~ SS So -STso Mabe tN ~SOrSnsossorors 
KCK LSLOSr K§ Orr Oer Or Or Or Or Or OCrOerOer2! Selle Ke Fr Orr Kore eree= 


OTN So Se OEM = FS OULNOMMMN WMWMAOtu Me VUME.OCOwn 
Hee Ree eee ee eee aoe er SSS SINS SNSNNE EVENS 
| ool teed ree ee ee gee Tp gee _ Feed gue = Or ge Ree Es GE gees ee ee ET po gem San ee Ge Gas Gwe GS TE Qe ew ~— 


MAS OR Out ~ fr ~ 


=emeeemerererereenah 


eee SPP SS CC FE EEE qo Ee Gee Gee Gee T= gee CP yew Gee = Ge ym gee SG 


ee Cee a Ge Gel Gee Gee Ged Ge Gad Ge Ge GP GG PE OE PE OE OC BCR CA Ca CeCe Casa eaeae 








NNT OM ORS we PO CUMS OR. COD or 5h. OC 
iO i. CDC =—OM OAS w > st 
eae ee SEMIN +> POP IM III Ranaan Moe 3.0 < ° DO OORAK| ~ 
EEE EEE EEE EEE Ee eee eeeeeme 


SEQ 0074 
TOPS 
PA:< 


SRarHB 18h 


ee. Eee ene seeneenstsienettteetteenennie 
ee - 


ML11 INTERRUPT SERVICE ROUTINE 


4$/<00><00> 


/TRA/ 
/NSF / 
/ER / 
/RET/ 
/RIE/ 
/LOG/ 
SICA/ 


ae Se ee ae 


ee a a a. a 
wT 


a. 
o- ww Ms Cus ~ MWOwrry 
Ee rf ee 


ep wre ee ge yen (wr gee Ge Qa yo Ee 


sMLX4 


NUINCOUMN = Mo ~~ wmown Mutu 


wT 
NESNWNZIALSN= SERA LNSsSt ANS 
c= 


COO Ga Te gee ee ee pr yee Gee we 
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EE eK Ke eee 








errr SSVSSHESSESS Moe ret Se RHR RTRRS 
PS ee ee 
i w w 


PO FF FF FO GF Fe Ge GF GO 
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PEPE EEE EE EE EERE EEE EEE ee 
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OrF~NnOM 7s OCUM., Ww ww e=IACY 
BRUKANZNES CNSSSNC SSS 


MAMOOMMCUNOO MMAMrOoe 
SSSTENTNNSH NSH CASSSSSSSN 


Qoe gue Gee ges GE ee Go 


ee gee game pe gee pee que ge gee gee ee Ce ee 


Oth KHNnnnronowowco oS 
SUNS MOSK us-o ACU Un ea 
eee gee eH Or Fe 
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PAGE 76 


MACRO M1113 29-MAR-82 13:41 
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SEQ 0075 


ML11 INTERRUPT SERVICE ROUTINE 


qq CLC VL III IIVIVIIIIVI 


P.ADT: 
ADU 


SMLX4 


ee a. 
wn oOonrm Rnrea. 
ore NOoeeH-- NSOee 
wee pio“ A vay ~4 A 
Nooo = 


NV SMOm a 
Sores 
em Re Ge gee 


HQSSS GN gUNSNgTS 
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Sxse 
FIRAARSS SONS 


SOOSOSSOSSOSOoOoOoooOooo 
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NNE te 
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or-oowo 


SR FS ES FS GS = 


SRR eS 


WTA TOewC AZo ww 
NeNSrSSrNeesessses~ 
Sk SS FF ES EF FE Ceealh teed 
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-Oowown 
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SOSSSOSSSOSOSOSOSSOSOSOOSCOOOOOOSOOOO 





eis MMR ER ERE REE 


Oe rn 
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3 S mw 
—=— Ore eee etcen ee yee pee ye om 


i Von 
SSANE SSNSSSS 3 Fy 
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SEQ 0076 


27-Mar-1982 19:08:64 


ML11 INTERRUPT SERVICE ROUTINE 


sMLX4 
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ADD UNIT SECTION 


Aree 


C 
L 


A 

& 

x A “ A A 
BS ee ScSSeSuwar Se sou Ne ee z< Seoorstaetseeoa> 
SS SS SSN VR RS RAR RRNA ARRAN VN NN 
‘an Jan. senses ben en-senten tenon ten len ten ben ten len testes tes terier ler les Lenton Ler ler er ee ee 
nd ond eg og nd ag og eg Song og Oey Sng ng Soy Soy eg ey Sg Og Soy eg Oey oy Dog Soy eg Omg Seg eg Oongy Og Ong Say Hg Sy Day Oey Oey Dey SoeeG Ome Ooey omy Gomey Goes Seg Some Suny Seng Sone Demy Og 
EEEEEEE EEL LLL EE ELLE ELE PEPE EE DEPEEEL EEE EEE DEEP PEED. 
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SEQ 0077 


SF -mar-1969 19:98:40 


M6 
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ADD UNIT SECTION 


- 


C 
L 


TOPS 
PA:< 


ML11 INTERRUPT SERVICE ROUTINE 


sMLX4 





SUNS = COM TiN FO .ASNOKWN 
oman OH SANSO-- Seo NANT FORUNTOOS ST OORUM ne at Nm 
Cee Se erKeK Serer rE §— Fee eK - 

PONS HH PEP TNCO-OMNneN= 
Sssz SENST ANS FNSASTONAAe HORNE Oe ENN ORTON 








SEQ 0078 


33:46 


N 
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TOPS 
PA:< 


an 


oe eee 


os pia 3 


ML11 INTERRUPT SERVICE ROUTINE 


sMLX4 


Ss §& 

v Vv 
A A A A 
~~ Sp BSS RASS SSSADNaS VVse 
S<VuWOVeuSVSoCdurSaY HuSV 
va orarsesta eu o =aowea< = 
QA NN SNR RENSEE 


ions Lam hem ham heme hem lame heme Lenn Lote hone homn Laae Leon Lame boom Lame, bon hare Leen Kare Las Ge bos Ce 

Sams ae hese hess hem heme lame heen Len hom Lame Lore Lae Lon Leon har, ben Lon Lan Len Lee Lem ae ke ee 

b-tr-tr tr tr tr ty ty tr-t7-tr-tr-tr-trtrtrtrtrteprtrte tr tr rte 

PEEP E EEE EE EEE E EEE REEL EEE. 
: oo 


AEP: 
P.AEQ: 
P.AER 


Won -— KOMK. SIAR. 


TONSKNANNE SANOTOS EH “SSssnn 


eh eh cl el el el el el el ed et et SEES CL KK — 


SOOOSSSSOSOSSSSOSOSOOOOOOOOSCO 


BLKw 
BLKW 
-BLK 
iy 


COUNT: 





SBE.LOG:.BLKW 400 
PM.SBE.CNT: 


DATA. COUNT 


BASE 
VEC: 


re ee ee ee ee 


geuusuessgenonenen moss an enensganonans 
3 3 ODOOOO0000DODO OOOO Oe ~~ 


BR.LEVEL: 





et we) 


1 


ed ae melt cel me eal cel ce eld ced eld ed el el ad od ened = 
wa 


a \ 


ek ed ed eed eed eet ed eed ed ed ed ee eed et ee ee eee eed eed ee eed eed en end enc eed eed eed eed coh cree cod cod ceed eon 








eBLKW 
RD.MILLIONS: 


WC. COUNT: 


-BLKW 
WC. THOUSANDS : 
WC MILLIONS: 


1.AM.DONE: 
RETRYING: 












SEQ 0079 


| oe a 19:24:42 TOPS 
7-Mar-1 19:23:44 PA:< 


| 
ML11 INTERRUPT SERVICE ROUTINE 
1 


onl conth come oy ecadk elt od cael os — a a — 


10 
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CZMLBBO PERFORMANCE £ 
LSAU ADD UNIT SECTION SEQ 0080 | 
1710 MLX4 7-Mar-1 19:24:42 TOPS | 
Wi) : ML11 INTERRUPT SERVICE ROUTINE a 19:38.44 PA:< 
i918 5 1 .WORD 1 
1714 0345 “WORD 4 
1715 “WORD 4 
1216 11 “WORD 11 
171 11 - WORD 11 
18 G38e8 HSS ims 388 
1721 
1 ; -GLOBL EFNS$21, LSUNIT, LSLUN, LIMIT. RANGE 
1 ~GLOBL LSECT, TSECT, ONLY, DROPNE, DROP1 | 
1724 -GLOBL DROP2, DROP3, DROPS, DROPS. MARPAT 
1725 : REFRESH, ECCDIS EOPSUM. ERROUT 
: -GLOBL SEED1, SEED2, SEEDS, RANDOM, RN 
1728 
17 BIT15== -1 
1 BIT14== 4 
1731 1T13== 2 
1 BIT1i2== 1 
1 BIT11== 4 
1 BIT10== : 
1735 BI T09== 
1 BIT 4 
1 BIT07== 200 
1738 1T06== 1 
1 BIT0S== 4 
1740 B1T04== 2 
1741 1T03== 1 
1748 BIT02== 4 
17% BITO1== 2 | 
174 B1T00== 1 
1765 B1T9== 1 
1746 B1T8== 4 
174 BIT7== 
1768 BIT6== 
is she 8 
15a9 B1T3== ‘ 
i Bites 3 
+ —4 
1582 Bi ross ¢ 
1755 EF. START== 40 
1 EF .RESTART== 
1 EF . CONT INUE== 
1 EF .NEW== 
1 EF .PwR== 
1 PRIO7== 
1761 PRI06== 
17; PRIO5== 4 
17; PR1I04== | 
7 OmLxe : 7-Mar-1982 19:26:42 TOPS 
: r- 226: 
1766 : ML11 INTERRUPT SERVICE ROUTINE so per-) 19:23:46 PA:< 


sil 





E 
= SEQ 0081 


~ 
oO 
~N 


RARE 
$3 


Mey Lor 





= 


1774 
He 3 
an 
1780 104000 é 
78s | pao 
FF 





1 
1 

1 

es 

17be 4 70 WBUF F +1000 
if £4 sere RBU 

1 023670 RBUF F +1 
1789 022670 WBUFF +1 
1790 032670 RBUFF +1 
1791 00 P.AAA 
17 005736 P.AAB 

179 006042 P.AAC 
1794 006126 P. AAD 
1795 006142 P.AAE 
1796 006160 P.AAF 
1797 006166 P.AAG 
1798 16 P.AAH 
1799 52 P.AAI 
1800 70 P.AAJ 

1801 20 P.AAK 
ioe 006376 P.AAL 
Ht 006446 P.AAM 

1 goers P.AAN 

i 3 p06see P AAP 
006640 P AAG 

1 54 P.AAR 

1 10 P.AAS 
me Bibs 3 

i 1 00 P. AAV 

181 7 P. AAW 
1814 7 P.AAX 
1815 - P.AAY 

1 16 71 P.AAZ 

181 711 PABA 

1 18 71 P.ABB 

181 7152 P.ABC 

1 7-Mar-1 1933362 TOPS 
: ML11 INTERRUPT SERVICE ROUTINE 7-Mar-1 19:23:44 PA:< 
1 007200 P. ABD 
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SEQ 0682 

WRD3= P. ABE 

- PT ABG 

rie CA 

WRD11= P.ABI 

WRD15= P.ABJ 

RD 16= P.ABK 

WRD17= P.ABL 

WRD18= P. ABM 

WRD19= P. ABN 

WRD20= P. ABO 

WRD21= P. ABP 

WRD24= P. ABQ 

WRD25= P.ABR 

WRD34= P.ABS 

54 WRD35= P ABT 

WRD P. ABU 

7 WRD37= P. ABV 

7 WRD P. ABW 

16 WRD4 P. ABX 

4 WRD41= P ABY 

mLBS= Sr 

7440 MLB PACE 

= 
444 MLBS= p 

7450 mLBG= P.ACD 

ras He BAR 

a6 P.ACG 
MLB10= PLAC 

7500 MLB11= P.ACI 

7504 MLB1 P.ACJ 
907510 MLB1 PAC 

107514 MLB14= P.ACL 
MLB15= P.A 

4 MLA1 P ACN 
MLB17= PAC 

MLB1 P.ACP 

MLBI P.ACQ 

54 sae 

r¢ F326 P.ACT 

264 PACU 

75 P.ACV 
7376 AC 

rege ACY 

3 P.ACZ 

7620 “ADB 

P. 
_ 7-Mar-1 :42 TOPS 





e 19:26 
: ML11 INTERRUPT SERVICE ROUTINE oe a 19:33:46 PA:< 


RITNSB= P.ADD 
RTNSC= P.ADE 
RTNSD= P.ADF 





ee oe 





SEQ 0083 





188 P.ADG 
18 P. ADH 
1§ P-ADI 
18 P-ADJ 
18 P- ADK 
1886 P- ADL 
18 P- ADM 
18 P.ADN 
1885 P. ADO 
185 P- ADP 
185 P. ADO 
185 P.ADR 
185 P.ADS 
185 P. ADT 
185 P. ADU 
189¢ P ADV 
fF cae 
1895 P_ADY 
15 P.ADZ 
! cae 
1S P- AEC 
1 P- AED 
1 P.AEE 
) 7 
1 PAE 
1 P.AEI 
1910 P.AEJ 
1911 P.AEK 
191¢ P.AEL 
191 P. AEM 
1914 p-AEN 
He P AEP 
319 P AEG 
18 P. AER 
91 


-SBTTL SERVICE ML11 INTERRUPT SERVICE ROUTINE 


544 SERVICE: : 
O34 344 012767 000001 177564 MOV #1,1.AM.DONE : pine 


552 RTI $ 
SPLXG 7-Mar-1 19:26:42 TOPS 
- 7-Mar-1 19.58.68 PA:< 









AL11 INTERRUPT SERVICE ROUTINE 


3; Routine Size: 4 words 
3; Maximum stack depth per invocation: 0 words 


eh OP ed ceed ed eee eed ceed eed eed ce Sd eed ee ee ee ed eed ee eed eet 


ERTS SHER ISIS NENTS 


TOPS-20 Bliss-16 V2¢ 


_ “hara1985 19s54:4e Par eue ta eeaeea 16, V282t2? 


ONCE-ONLY CODE 5 -Mar-1 
2348 %sbttl "ONCE-ONLY CODE’ 





ay 


Oo 
™~ 


mn 





















99 I+ 
MLX4 goer 138s 13:98:49 TOPS-20 Bliss-16 V2(212) 
ONCE-ONLY CODE 7-Mar-1 19:23:24 PA: <NEALEDMLX4.811.5 (5) 


3601 : THIS IS THE CODE FOR PURPOSE 2: 
& 


7 
MLBBO PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE B35 
RVICE ML11 INTERRUPT SERVICE ROUTINE SEQ 0084 
Me ; Se : novalue = ee 
: n ! 

1969 : 

1ae8 $ '++ 

ie 3 ROUTINE: CLRTBLS 

1951 ; : PURPOSE: =§ THIS ROUTINE IS CALLED BY THE INITIALIZATION CODE WHEN 
1326 s : A ‘START’ OR ‘RESTART’ COMMAND HAS BEEN weak TO BEGIN 

: ; THE PROGRAM. THE PURPOSES OF THE ROUTINE ARE: 

1955 : (12 TO INITIALIZE STATISTICS TABLES 

1989 : : (2) TO SET ALL DRIVE AND ARRAY STATUS op Nee TO ACTIVE 
1338 ; : NOTE: EVEN IF A UNIT WAS DR D ING A PREVIOUS 
1959 ; ! HE START OR RESTART C ES 
Ls 6 5 THAT THE DRIVE WILL ONCE AGAIN BE TESTABLE. 
4 5 : (3) TO ENABLE THE RUNNING OF ALL TEST OPTIONS IF THE 

: 96% ; 368 OPERATOR WANTED THEM ALL TO RUN. 

1965 ;: G 

1306 3 0 '!+ 

Ls $ He - THIS IS THE CODE FOR PURPOSE 1: 

1 ; 

1990 : 74 incr LUN from 0 to (.LSUNIT - 1) do 

1971 ; 75 begin 

1972 ;: 76 

1 : incr ARRAY from 0 to 15 do 

19764 : 378 in 

1975 : SOFTS C.LUN, .ARRAY, 0, 16. = 0; 

1376 s HARDS [.LUN, .ARRAY, 0, 16, = 0; 

T s 1 . TRIES C.LUN, .ARRAY, 0, 16, = 0; 

138 5 end; 

1979 ; 

: : ; : end; 

1 : SBE$_COUNT = 0: ! VER CZMLBB ADDED CLEARING THIS VARIABLE 
1 : EOP_TOUNT = 0: 

1984 : Ives = 0: 

1985 ;: RETRYING = aerate: 

1 : WR_COUNT = 0; 

1 : 91 WR_ THOUSANDS = 0; 

1 : § = 0; 

1990 : 94 CHOUSANDS' = 0 

; ware 

1 3 95 0; 

199 : 3 = 0; 

1 5 = 0; 

1 3 

{ 3 

1 3 

1 

1 


ES FEST 


—— ee oe 


mn 
8 
oo 
o 
m 


2OSOC 


SO0C SOSOS0O900C¢ 


eh ee ed cd ced ed ed ed 


tated 


NOVEUN @OQO0ONAUSWNR—O 


ORMANCE EX 
INTERRUPT 






PRPS 


5 el eal 


ek ed ed ced ceed eed eed ceed etd ee 
=—OOVDNOULWN =O 


MMMM 


| Set aed det edad ttt eee eet eee 


SSo~ WISIN 


ERC 
SE 


H 
ieee MACRO M1113 29-MAR-82 13:41 PAGE 3-5 


CE ROUTINE 
incr Lm free 0 to (.LSUNIT - 1) do 
TOW SECT LUN] = 0: 

BRIDE STATUS f-Lind = active: 
ui DROPT C.LUid = 0; awe 


'e 20 






'¢ 
: THIS IS THE CODE FOR PURPOSE 3: 


“incr index from 0 to 127 do 


in 's 3 « 


'e 3 « 


> 


VER CZMLBB ADDED CLEARING OF THIS STRUCTURE 


The single bit error log table stores ott 
detected sbe's detected dur ng the run time 
of the exerciser. In this table is stored 
the sbe’s: unit #, rd #, #, bit # 
and a count of how many times this sbe has 
reoccured. 


This code initializes this structure to zeroes 
before starting execution of the exerciser. 


'Clear the single bit error log table 


LOG pe index. WRDS_0] = ZERO; ‘Clear word zero 
SBE_LOG C.index, WRD$_1]J = ZERO: 'Clear word one 


ig 
VER CZMLBB ADDED CLEARING OF THIS STRUCTURE 


' The prom maintanence program is called out 
! to 5 run on a pt icular array nodule when 
: that array module has collected 10 unique 


SEQ 0085 


ete ee Ee ee ce 


7 
= 





ee 
LL oe et 


? 
M1113 29-MAR-82 13:41 PAGE be 













SEQ 0086 
52 : 7-Mar-1982 19:24:4 TOPS- Liss-16 V2(212) | 
¢ F ONCE~ONLY CODE Somer 1985 19:33364 Phe ueAL esas eu Ys (3) | 
0055 ; ! failing chips. This structure stores for | 
2056 ; ! each array within onan unit its total number | 
032 of unique failing chips. | 
5056 : ' This code initializes this structure to zeroes 
7060 ; before the exerciser is executed. 
4! . e 7 
: : incr UNIT_SEL from 0 to 7 do Clear each units table 
: incr ARRAY_SEL from 0 to 15 do ‘Clear each artes within each unit 
: PM_SBE_CNT C.UNIT_SEL, .ARRAY_SEL, PM_SBES$_SUM] = ZERO; Clear this array sum 
: return; 
-SBTTL CLRIBLS ONCE-ONLY CODE 
934554 150534 CLRTBLS:JSR RL SSAVES ; 349 
934560 145226 MOV LSUNIT ,R4 : 374 
, R1 ; LUN 
’ ; 1$: Ps LUN,* 2379 
934574 
934576 > 
034602 ; ARRAY 2 
He 28: MOV ; $379 
JS4OUE 3 ARRAY,* 
13461 ASL 
1346 0 714 CLR 
134616 314 CLR g 2 
346 033714 CLR s § 1 
J 46e€ INC 3 ARRAY 
13463 000017 CMP ; ARRAY,* 
13462 BLE 
034636 INC ; LUN 2374 
1 ret 3$: a4 ; LUN,* 
i Hite ir : 
346 177976 CLR ; 
934660 1774654 CLR : 
re 177433 CLR UALS FROUSANDS : 1 
134674 1776 CLR = WR. MILLIONS : 2 





EEE 








ee eleerieetieeeei  e -—— _— 
























? 
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CLRTBLS ONCE-ONLY CODE SEQ 0087 
108 sMLX4 37-Mar-1 19:24:42 TOPS 
1s : ONCE-ONLY CODE 7-Mar-1 19:23:44 PA:< 
111 9 700 $067 177416 CLR RD. COUNT ; 393 
ie 5067 177614 CLR RD. THOUSANDS ; 94 
11 710 ? 177612 CLR RD.MILLIONS ; 95 
114 034714 7? 17761 CLR WC. COUNT ; % 
115 ? 177406 CLR WC. THOUSANDS ; 
116 4 005067 1774 CLR WC MILLIONS ; 3 
11 CLR R ; LUN 40 
118 BR o¢ 
3119 145134 4$: MOV R2,LSLUN ; LUN,* 405 
1 7 10201 MOV R2,R1 : LUN,* 406 
2121 03476 1 ASL R 
1 Q 746 1 034460 CLR LOW. SECT(R1) 
1 7 1 MOV R2,R1 : LUN,* 2407 
124 1 ASR R 
125 1 ASR R1 
1 i ASR R1 
1 7 146 MOV R1,-(SP) 
1 0 ? 16 034442 ADD #DRIVE. STATUS, (SP) a 
6 56 HY 16 177770 BIC g 0, (SP) 
1 034774 012746 000001 MOV #1,-(SP5 
132 035000 011646 MOV (SP) ,=(SP) 
133 0 3002 767 147606 JSR BL 
% 0 110116 MOV R1, (SP) ; 2408 
1 5 935010 z16 034444 ADD 1 laabaat — 
13 035016 042716 177770 BIC 9 $7990 (SP) ' 
2 012746 1 MOV =(SP5 | 
139 0 105046 CLR -(§P) 
40 0 104767 147560 JSR PC BL SPU2 
41 0 10506 446 CLR ut . DROP T(R2) : © (LUND 2409 
48 Osco, poset Ne kun 5403 
re: ' 046 iy 20 5$: ys R RS : LUN,* 
46 935052 005767 145156 TST ; 2416 
47 ¢ "S4 poe oie BNE 
48 135060 00506 145152 CLR DROP1 : 19 
49 035064 005067 14515 CLR DROPS : 
50 035070 005067 145146 CLR DROP : 1 
51 035074 005067 145144 CLR : 
2 : 905067 145144 oun ’ INDEX 
54 035106 0103¢ nn  INDEX.© 
5 035110 0063C ASL 
112 906706 11266 CLR «SBE. LOGCR2) 
38 31 105062 He 66 CLR .LOG+2(R2) : 2443 
124 0052 INC : INDEX 440 
60 2¢ Z 000177 CHP 4177 ; INDEX,* 
re 1 105003 CLR R : UNIT.SEL 2460 


mm eens 


+ 
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CZMLBBO 
CLRTBLS ONCE-ONLY CODE 


164 SMLX4 
199 3 ONCE-ONLY CODE 
$10 8$: R3,RO 
ig : 
190 f 
i ; 
133 9$: RO,R1 
174 R2,R1 
175 R 
a pene MT CRT 
1 R2,417 
ig 
181 R347 
&$ 
PC 


MPOMIPIMINONY 
ed ed ond ed nd ond ed 


VIEF 





: Routine Size: 141 word 


s 
; Maximum stack depth per invocation: 


12 words 


; UNIT.SEL,* 


ARRAY .SEL 


; ARRAY.SEL,* 


ARRAY . SEL 
ARRAY .SEL,* 


UNIT.SEL 
UNIT.SEL,* 


3 


7-Mar-1 
7-Mar-1 


A: ne anes 
a 


SEQ 0088 | 
$5 13h 
2463 


3468 


2462 
2460 


2349 


— 
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CZMLBBO 
CLRTBLS ONCE-ONLY CODE SEQ 0089 
194 :MLX4 7=-Mar-1982 19:26:46 TOPS-20 BLiss-16 V2(212) 
199 : ONCE-ONLY CODE oe ie ES 19:54:64 PA:<NEALE>MLX4.BLI.5 (6) 
199 : 7? routine INIT_ADDRESSES (PLOC) : novalue = 
138 : begin ‘a 1 * 
1 : rg 
: 470 !4+ 
1: 471 { ROUTINE: INIT_ADDRESSES(PLOC) 
: 238 i PURPOSE: THIS ROUTINE IS CALLED ONLY ONCE DURING THE INITIALIZATION 
: 474 CODE, EVEN IF THERE IS MORE THAN ONE DRIVE PRESENT. THE 
; 425 PURPOSES OF THE ROUTINE ARE: 
: 477 | (1) TO OBTAIN HARDWARE P=TABLE INFORMATION FROM 
: 4 MAIN MEMORY WHICH PERTAINS TO ALL DRIVES. 
10 : 480 : (2) TO SET UP THE ADDRESSES FOR THE 22 ML-11 REGISTERS. 
12 : ibe i (3) TO SET UP THE INTERRUPT SERVICE ROUTINE AT THE 
13 : i CORRECT PRIORITY, AND LOWER THE CPU PRIORITY TO 
14 ; 48% ALLOW INTERRUPTS TO OCCUR. 
16 : sige i ARGUMENT: § PLOC = THE POINTER TO THE LOCATION IN MAIN MEMORY WHERE 
17 : 3487 i THE HARDWARE P-TABLE IS TO BE FOUND. 
rat. : 468 !-- 
19 ; 489 
220 ;: 490 local 
221 ;: 2491 
322 : 249 PRIORITY, 
s s 249 OFFSET: 
4; 2494 
5: 2495 1+ 
: 2496 ‘THIS IS THE CODE FOR PURPOSE 1: 
37 : 249 in 
£ rts BASE _AODR. = ots OC + 0): 
% : 500 VEC = 355! 
1: 501 BR LEVEL “ “it PLOC + 4): 
; 250 PRIORITY = .8R_LEVEL‘S: 
: 2504 if .ECCDIS 
5: 2309 hen 
; 306 , TEMP = WRD37 'ECC IS DISABLED 
e eis 
38 : 2508 TEMP = WRD36; 'ECC IS ENABLED (NORMAL OPERATION) 
40 : 510 PRINTB (CRLF); 
41: 511 INTB (SAYS, WRD34, WRD4O, WRD38, . TEMP, WRD41); 
4e ; 312 !*RUNNING WITH ECC ENABLED/DISABLED AND' 
re : 314 if .REFRESH 
4 : 316 TEMP = WRD36 ‘REFRESH MARGINING IS ENABLED 
P) e.se 
468 : 518 TEMP = WRD37; 'REFRESH MARGINING IS DISABLED (NORMAL OPERATION) 


: 
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Se 
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PERF 
ONCE-ONLY COD 
sMLX4 7-Mar-1982 19:26: 
3 ONCE-ONLY CODE sonar 1385 13:38: 
3 519 
; 520 PRINTB (SAY3, WRD4O, PHR3, .TEMP): 
; 521 '"WITH REFRESH MARGINING ENABLED/DISABLED’ 
3 é PRINTB (CRLF): 
: 524 14 
: 3 5 ‘THIS IS THE CODE FOR PURPOSE 2: 
: a § : 
: 2 8 OFFSET = 0; 
: e incr COUNT from 0 to (NUM_REGS = 1) do 
3 531 gin fa 2s 
: 332 ML_REG C.COUNT) = -BASE_ADDR + OFFSET; 
: 533 OFFSET = .OFFSET + 2; 
3 25 end; 's 2 
5 See 
: 236 '+ 
: 23 37 ‘THIS IS THE CODE FOR PURPOSE 3: 
: 2539 
: 540 SETPRI (PRIOO): 
; 541 SETVEC (.VEC, SERVICE, .PRIORITY): 
Z 254 return; 
: 254 end; ‘es 1 * 
-SBTTL INIT.ADDRESSES ONCE-ONLY CODE 
BB 035206 INIT. ADDRESSES: 
B7 035206 004167 150102 JSR R1,$SAVE4 ; 
BB 03521<c 016602 000014 MOV 14(SP) Re : 
89 035216 011 175464 : MOV (R2) ,BASE. 
0 035 016267 000002 175460 MOV eRe} VEC : 
1 035 016267 000004 175454 MOV 4(R2) .BR.LEVE ; 
92 035 016746 175450 MOV BR-LEVEL .~(SP ; 
5242 012746 5 MOV 8 0=s#’5, = (SP) 
3 46 00 767 147742 JSR eb SSHF 
3 54 05 2767 000001 144772 gir #1 ,ECCDIS : 
5 12701 007400 MOV #uRD37 RI ; 
ea ties ge ey Boson, : 
5 or 746 1 ; mov @) +5(SP) ° 
33 104414 TRAP 34” ° 


4 TOPS-20 Blis 
4 : E 


i Re - 


PLOC ,* 


* PRIORITY 


* , TEMP 
*, TEMP 


SP,* 


SOS 


ck ed ed ed ceed eed eed ed ceed eed = 


“QODVNAUSWNOS 


we 


SAAN 
DOONAN 


wero 
+h3tt 


meat 
ed 


yt 


al 


aad nat nbad nd Lad 
iver prt yey tye hye? 
‘etn 7 


abt ad Lada Lad Lodi 


Paice 


Pett eee eet et 
eee 


OOOoOoooooooo 


CS 
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—— 
oor 
S 
re 
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So 


MUNA 
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eed ced ceed cond ad cad eed —_ 


Ree ee 


IO OOOSOSOSOSSSOOSOOSSCOOSOOOOCCOOO 
ROS secee o 
BSssecs oooooO 
RONE Nit 
=f 


~“MOLS 





144674 


sMLX4 


5$: 





oOn~ 
33832533 


3 
< 


PaEPEELREEEEE 









,<oC<r- 


ONCE-ONLY CODE 


#WRD41, (SP) 
R1,-(SP) 


#CRLF , (SP) 
#1,-(S§P) 


SP;RO 
14 
} nS 
RI 
R1 


BASE ADDR ,R4 
R4.ML.REG(R1) 
92:Re 


e 







M25 






#42,SP 
PC 


103 words 
depth per invocation: 22 words 


; TEMP ,* 


SP,* 


; *, TEMP 


* , TEMP 
TEMP, * 


e 


; SP,* 


SP,* 
OFFSET 
COUNT 
COUNT ,* 
OFFSET,* 
* OFFSET 
COUNT 


; COUNT,* 


PRIORITY,* | 


; 


7-Mar-19 
7-Mar-198 


SEQ 0091 


19:26:42 
19:5$:66 


TOPS 
PA:< 


2511 


2467 


i 


' 


5 
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INIT .ADDRESSES ONCE-ONLY CODE 


sMLX4 


SEQ 0092 
oi fermi2 13:33:44 TOPS-20 Bliss-16 Ve (ete? 











Hatta 
= 


536 : DRIVE IDENTIFICATION ROUTINES 7-Mar-1 3:44  PA:<NEALEDMLX4.BLI.5 ( 
i tsbetl "DRIVE IDENTIFICATION ROUTINES’ 
bé routine SAYWHO (LUN) : novalue = 
65 +4 
49 i ROUTINE: SAYWHO (LUN) 
72 i PURPOSE: TO PRINT OUT AN IDENTIFICATION LINE WHICH INCLUDES: 
a ; LOGICAL UNIT: X DRIVE: Y SERIAL #: 2222 
3 5 554 THE UNIT’S SERIAL NUMBER IN EITHER BCD OR OCTAL FORMAT. 
336 BCD WILL BE PRINTED AS LONG AS THE DIGITS ARE ALL VALID. 
336 | 
5 
5 


oo 
oo 
g 
&y 

o- 

. 


FERS 





3 


aeseae 








1 On Ot Os Cte Oe Oe PoP 


. “ne 


= > ° 


TB (FATGA, PHR7, .LUN, WRD11, .DRIVE); 
'*LOGICAL UNIT: X ° DRIVE: Y° 


ga gtr 9) or (.D2 gtr 9) or (.D1 gtr 9) or (.00 gtr 9)) 





ak 


i 
‘se ' 
7 
x 
i 












57 
PRINTB (FMT4B, PHRB, .MLSN) 
335 574 1¢ SERIAL #: 222222° 
9 575 else 
239 57 PRINTB (FMT4C, PHRES, D3. D2, D1, D0); 
5396 378 1 SERIAL #: DDDD* 
240 5 return; 
74 580 end; 
5406 .SBTTL IVE IDENTIFICATION ROUTINES 
1¢ 4 167 147604 SAYWHO: JSR 5 : 
1 1 176642 30.R5 : 8 D3 $26? 
if : if 
| is 5 : D 
16 5 SWAB : D 
41 =MLX6 37-Mar-1 19:24:42 TOPS 
18 : DRIVE IDENTIFICATION ROUTINES 7-Mar-1982 19:23:44 PA:< 
Fi 5 1777 BIC #177760,R5 7, 
421 se 1 17, MOV EAL .REG*S0.RG i. sp2 2565 
ih 177 #177760,R6 :e 
Tk 3260 17701 17, om REGS SRI eo 2566 





8 
1 





SEQ 0093 
2567 
2568 
2571 
2573 
2571 
2576 
2545 
TOPS 
PA:< 
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begin ‘a 1 


‘ 
1 ROUTINE: CONF 1G(LUN) 
i PURPOSE : CONFIG IS CALLED BY THE INITIALIZATION CODE FOR EACH DRIVE 
- GHICH SUCCESSFULLY RESPONDS TO A REQUEST FOR ITS HARDWARE 
P=TABLE. THE SES OF THIS ROUTINE ARE: 

; (1) TO CHECK THAT THE DRIVE IS POWERED UP. 

: (2) TO VERIFY THAT THE DRIVE IS AN ML11 UNIT. 
; 

{ 

i 

' 

4 

5 

' 


(3) TO VERIFY THAT THE OPERATOR DEFINED TEST RANGES ARE 
WITHIN THE CALCULATED SYSTEM SIZE. 


(4) TO PRINT DRIVE IDENTIFICATION INFORMATION. 
‘ COUNTING FROM 0 TO 





ARGUMENT : LUN = THE LOGICAL UNIT NUMBER 
NUMBER OF DRIVES MINUS 





'¢ 
. THIS IS THE CODE FOR PURPOSE 1: 


UNIT = .DRIVE: 
if .DPR neq 1 
then 
panto 
PRINT6 (FAT4A, PHR7, .LUN, WRD11, .DRIVE): 
!"LOGICAL UNIT: X : y° 
PRINTB (SAY2, WRD11, WRD21); 
!*DRIVE D° 


PRINTB (FMT2, CAUSE1): 
1¢ (NOT RED UP) ° 






return; 


§¢ 
: THIS IS THE CODE FOR PURPOSE 2: 


EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 51 | 


CZMLBBO PERFORMANCE 
IFICATION ROUTINES SEQ 0095 | 


SAYWHO DRIVE IDENT 
238 : sMLX4 
240 






Liss-16 oe a 
>MLX4.BL1.5 





DRIVE IDENTIFICATION ROUTINES Spomar=1983 1938ice || pee se3.8 





258 


SAYWHO (.LUN); 
'*LOGICAL UNIT: X DRIVE: Y =‘ SERIAL #: 2272° 
TYPE = .MLDT: 


A ae meq MLI1A) and (.TYPE neq ML118)) 





Pt 3 22 


in 
4 Moe (SAY2 WRD11, WRD21); 
! "DRIVE D* 





549 
550 
3] 
58 
54 
55 
‘a 3 « 
's 6 & 
‘a 6 & 
fe § « 
: ie 5 


'¢ 
-THIS IS THE CODE FOR PURPOSE 3: 


TOP_SECT C.LUNJ = (.TOP)#(512)*(.$2) - 1; 
if .LIMIT 
then 
14 
THE OPERATOR HAS CHOSEN LIMITS: 
begin | 's 6 & 


if .RANGE eql 0 
then 


i+ 


i THE BOARD NUMBER (0-15) IS CONTAINED IN ‘ONLY' 
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SAYWHO DRIVE IDENTI 
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ee 
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594 :MLX4 
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Salsaras 
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~~~NS 
eee ceed ud) ads needs cond 
NOULWE =O OO VNOUSWN 30 
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CISER MACRO M1113 
ION ROUTINES 


DRIVE IDENTIFICATION ROUTINES 


begin 


! VER CZMLBB CHANGED .TYPE TO .ARR_TYP 


if .TSECT leqa .TOP_SECT C.LUN) 


els 


if .ARR_TYP 
then 


i+ 


i THE CHIPS ARE 64K 


in 
Peer = 20688. 
HSE ET = “LSect ¢ OS ba7: 


else 


'¢ 
: THE CHIPS ARE 16K 


Peer = 512*.0MLY: 
TSECT = .LSECT + 
end; 


+ 511; 


end; 


TOP_SECT C.LUNJ = .TSECT 


e 
pein | 
a WRD21); 





PRINIB 
ast nal 





ER RATOA bid S 
ST som 


DODO (. 
return: 
end; 


 f .LSECT Lt - TSECT 
hen _ 


LOW_SECT C.LUN) = .LSECT 


else 


begin 
PRINTB (SAY2, WRD11, WRD21); 
!*DRIVE ' 


DROPPED 


F 
29-MAR~82 13:41 PAGE 92 


T LIMITS . 
SEbs' srs sy 


Spmar-1988 19:98:40 


!# 10 * 


‘a 7 & 


'e 7 


ie 10 * 






a Bliss-16 ve (er ) 
PA: <NEALE>MLX4 ..BL1.5 





SEQ 0096 


SS RT ca mm - 
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Ee 
SAYWHO DRIVE IDENTIFICATION ROUTINES SEQ 0097 
550 :MLX4 “Mar-1982 19:24:4 TOPS-20 Bliss-16 V2(212) 
= DRIVE IDENTIFICATION ROUTINES $hoher=1983 | 9:53: df PA: <NEAL ALK. BLISS , 8) 





i 













: 2737 PRINTS B Cente CAUSE3) 
996 ; A SELECTED Te TEST LIMITS INCORRECTLY) ' 
555 PRINT. ¢ cent PHR14, .TSECT); 
056 : 74 "LOW SE OF a hy ENCE TOP SECTOR OF Yvvyvy’ 
657 ; 74 inv DROPT .LUN] = 
558 : 74 DODD (.LUN): 
559 : 74 return; 
560 : 746 end; 
661 ;: 745 
662 : 74 end; '* 6 * 
565 : 74 
564: 74 fe 
$65 ; 749 {THIS IS THE CODE FOR PURPOSE 4: 
567 : 751 
568 ; 75 PRINTB (FMTS, .TYPE, LOWEST, HIGHEST); 
569 ; 23 !*ML11-X = SECTORS UNDER TEST: XXXXkx TO vvvvyy" 
671 : 755 selectone .TRT of 
are s 756 set 
573 ; 757 
574 : 758 (0) : 
675 : 759 TEMP = TRTOO; 
a06 : 760 
578 : 761 es TEMP = TRTO1; 
B 2 = e 
8 768 (23 
681 : 765 TEMP = TRT10: 
683 : 76? (3) : 
584 ; 768 TEMP = TRT11: 
OF e 76° tes; 
687 : 771 PRINTB (FMT8 
688 8 Panta ren Cag ; 
690 : 77 SR ADDRESS: Kxi 
591 ;: de fasts !'e 3s 
ae ° ‘ 
569% : rt = ie. 
+H4: 
€ -SBTTL CONFIG DRIVE IDENTIFICATION ROUTINES 
3 0 167 147326 CONFIG: JSR RI ves 581 
4 nprtoed O96005 000016 MOV 16(SP), > LUN,® 13 


SEQ 0098 
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002000 


00001 


177740 


000001 
143574 
002000 
143564 


176054 


143600 


175732 


143532 


143500 
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4$: 
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DRIVE IDENTIFICATION ROUTINES 


#2, WHY .DROPT (RS) 
RO 


5 
#16,SP 


o@ML .REG+24 
oR2 





#1,R 
4$ 
#URD7 .R2 


ator SECT.RS 
R4RS 











R1.=(SP) 
ami .REG+24,R1 


RI 


R1 
R1 

R1 
#1777640,R1 
R1,-(SP5 
BL 


oR1 


R 
a TART 
118 





. RANGE 
#2000, 0A. .nEG*24 


; LSECT,* 


; LSECT.* 


2709 





SEQ 0100 


Spar 188 18:88:82 
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CONFIG DRIVE IDENTIFICATION ROUTINES 













: Routine Size: 318 word 





$s 
: Maximum stack depth per invocation: 


20 words 


SMLX4 
: DRIVE IDENTIFICATION ROUTINES 
104451 TRAP ss 51 

3 706 000034 10S: ADD #534, SP 

BBO 037016 011516 11$: MOV (RS), (SP) 3 
. 182 034460 mov LOW. SECT(R4),-(SP) 
Rg 6 01274 320 MOV #FATS,-(SP) 

RE a Fae SppObs MOV #4,~(§P) 

TF. 14 TRAP 

t. 017701 175326 HOV @ML .REG+24,R1 

389 037056 022701 177774 BIC #177774,R1 

; : 00 BNE 

39 b 01 010444 OV #TRTOO,RO 

3¢ re 127 000001 12S: CMP R1,41 

35 1003 BNE 

35 tek 010446 OV #TRTO1.RO 

: 0 0 o1 z 000002 13$: cmp R1,#2 

399 0 1 70 010450 OV #TRT10,RO 

8 020127 000003 14$: CMP R143 

; 0 1002 BNE 15§ 

; or 010454 MOV #TRT11,RO 

: ° 13946, 006466 - iw 

+'¢ a 746 000002 MOV 8s #2, = (SP) 

509 O8714 ON6P16 173536 MOV _ BASE. ADDR, (SP) 
910 50 012746 007770 MOV #PHAS = (SP) 

911 037154 012746 52 MOV #FMT4B,-(SP) 

; ‘ 7160 012746 MOV #3,-(SP) 

3 7164 01 MOV SP.RO 

18 O87195 Gestee 000030 i. fee 

916 037174 207 RTS PE 

924, 
5995 





SEQ 0101 
7-Mar-1982 19:26:42 TOPS 
oe it 19:5$.64 PA:< 
730 
734 
2752 
TYPE ,* 
SP,* 
2755 
*, TEMP 2759 
2755 
*, TEMP 2762 
2755 
* , TEMP 2765 
2755 
* TEMP 2768 
TEMP, * 2771 
SP,* 
2773 
SP,* 
2581 











LL lle 


EXER thorn MACRO M1113 29-MAR-82 13:41 PAGE ba ° 


CZMLBBO PERFORMANCE 
CONFIG DRIVE IDENTIFICATION ROUTINES SEQ 0102 
7 ;MLX4 7-Mar-1982 19:26:4 TOPS-20 Bliss-16 ve (et ; 
- DRIVE IDENTIFICATION ROUTINES ome at 53 19:5436 PA: <NEALE>MLX4.8L1.5 
' 779 ~routine DECODE (SECT) : novalue = 
1 begin 
ae 
: , ROUTINE: DECODE (SECT) 
785 


PURPOSE : TO INTERPRET THE A het OF THE FAILING SECTOR 
FOR BOTH 16K AND 64K CHIPS. 


RESULTS: (1) BANK = WHICH ROW OF CHIPS (0-4) 
(2) BOARD = WHICH ARRAY MODULE (0-15) 


sh rh he 
SSISSES 


| 
ARGUMENT: § SECT = FAILING SECTOR NUMBER 


3 
040 
43 
ap As 
3799 if _pMor 
3947 $796 'THE CHIPS ARE 64k 
5949 5798 Be = .SECT<9 
2950 3799 Roe Sh i,. 
2951 800 
2932 2801 “a ‘THE CHIPS ARE 16K 
os 
2954 80 = .SECT<7 23s 
2955 2804 BOARD = .SECT<9, 4 
Soa9 2805 : 
2958 2807 ! 
3999 2808 : VER CZMLBB ADDED LOADING OF BIT_NUM TO ROUTINE 
1 2810 —S« BI T_NUM = .CHAN; 'SAVE THE FAILING CHIP NUMBER 
2811 return: 
; 2812 end; 
.SBTTL DECODE RIV IDENTIFICATION ROUTINES 
2972 037176 052777 000001 175170 DECODE: BIT ei 156 2795 
97 037206 016600 000002 MOV a : SECT,* 2798 
5 03721 ASR R 
26 14 SWAB 
3 38 61 195946 Rov nO nae’ 
es 01 000002 2(SP) ,RO : SECT,* 2799 
5987 00 m (Cf 


‘al 
eee M1113 29-MAR-82 13:41 PAGE 99 . 








SEa 0103 | 

*MLX4 7-Mar=1 ‘fe 
: DRIVE IDENTIFICATION ROUTINES Fomarn198> 1O.Shice || aes 

BR 28 
1$: MOV (SP) RO : SECT,* 2803 

cue ORG 

BIC -#177774.RO 

MOV Brey RO SECT, * | 2804 
23: aoe Is : : : 

BIC -#177760,RO 

MOV —siRO, 

MOV @ML.-REG#42.RO : 2810 

ASR OR 

ASR RR 

ASR OR 

ASR oR 

ASR oR 

ASR OR 

BIC —-#177700.RO 

MOV RO,BIT.NUM 

RTS ss PE 2779 


3; Routine Size: 46 words , 
: Maximum stack depth per invocation: 0 words 








CA 


oud eed cond ceed eed eee exc 


DWOONOUIL Wi 


CONOUE WN 










OOS 


> CrERnC 


N 
MERCISER MACRO M1115 29-MAR-82 13:41 PAGE 100 
TION ROUTINES 


DRIVE IDENTIFICATION ROUTINES 7-Mar- 


routine ISOLATE : novalue = 
begin 


++ 
ROUTINE : ISOLATE 


' 
i 

i 

! PURPOSE: UPON THE DETECTION OF A_ DATA ERROR (EITHER bd OR 
; NOT) TO EXAMINE THE SECTOR ADDRESS CONTAINED THE ECC 

: ERROR wa REGISTER AND ni3) Ane THE Local ton OF THE 
4 ERROR. THE SECTOR, BOARD (0-15) AND BANK (0-3) WILL BE 
REPORTED. 


DECODE (.MLEL); 
If .ERROUT then PRINTB (FMT10A, WRD20, WRD15, .MLEL, SONS, eBANK) ; 
:*FAILED: SECTOR XXXXXX BOARD YY BANK 2° 


1 return; 
2 end; 
-SBTTL ISOLATE DRIVE IDENTIFICATION ROUTINES 
17746 175054 ISOLATE :MOV +44 ,=(SP) 
767. 177634 JSR 
767 000001 142710 BIT : 
1422 . BEQ 
16766 1767 MOV 
16746 1767 MOV (SP) 
17746 1730¢ MOV 4,-(SP) 
12746 MOV (SP) 
12746 MOV -(SP) 
f 12766 19 MOV -(SP) 
055 156 mov SP,s 
50¢ 104414 TRAP ——e 
06 000016 ADD 
C ? 6 1$: TST : 
! RTS 





3: Routine Size: 28 wo 
: Maximum stack depth. - invocation: 8 words 


Sema HOES IB:S8t2 aah een. re 


SEQ 0104 


2813 





y 
CISER MACRO M1113 29-MAR-82 13:41 PAGE 101 
CATION ROUTINES SEQ 0105 


7=-Mar-1982 19:26:64 TOPS-20 BLiss-16 V2(212) | 
g 19,3834 Bh BLioect6 yece 













is unit exist 


‘This gbe Bigs | sree se just up its occurance count 


(; SBE~LOG 
begin 
LOG [.index, SUMS SBE] = .SBE L 
SBE-EXIST = Tu; Frogte 


072 3MLX4 
te : DRIVE IDENTIFICATION ROUTINES 77-Mar-19 PA: <NEALE>MLX4.8L1.5 (11) 
075 ; 333 routine UP_HARD_COUNT (LUN, ARRAY) : novalue = 
076 ; te begin 
078 : B36 +4 
1079 ; 837 =; ROUTINE: = UP_HARD_COUNT (LUN. ARRAY) 
081 ; as i PURPOSE : TO INCREMENT THE HARD ERROR COUNT FOR THE GIVEN 
Se ; 2840 ! ARRAY, AND TO SEE IF THE HARD ERROR THRESHOLD HAS 
$083 ; B41 BEEN REACHED. 
085 ; t $ i aRGuments: LUN = LOGICAL UNIT WHICH HAS THE HARD ERROR 
086 ; 4: : ARRAY = THE BOARD NUMBER (0-15) 
088 : 846 
089 i Local ! VER CZMLBB_ADDED THIS LOCAL STORAGE 
IU ; a4€ SBE _EXIST; ‘Indicates if the searched sbe already exists 
305 : 850 HARDS C.LUN, .ARRAY. 0, 16. 0] = .HARDS C.LUN, .ARRAY, 0, 16, 0] + 1; 
09% 854 i VER CZMLBB ADDED FOLLOWING CODE TO LOG SBE'S 
1096 2854 ' First search the sbe Log table and see if 
097 ; 855 ! this single bit error already hag = in 
098 ; 33 : the table. If it does exist then just 
S099 ; 35 : increment its occurance count, else 
100 ; 2858 : record its failing location into the 
; . 2859 ; table. 
. : 5861 Only log away 128 single bit errors. 
105 : 586 
, ; z £ sf -SeeS_ Count iss 127 ‘Have 128 errors been logged yet 
198 ; 5866 begin } ‘There is room for at least one more sbe 
110° ++ EXIST = FALSE; ‘Init the existance flag to false 
11: 865 1+ 
112 ; ‘Ya! ! Search the single bit error { able 
ns s tf and see if this error stready exist. 
15 ; 7 
11g s B74 incr index from 0 to .SBE$_COUNT do 
Ng $ i begin 
119 ; : if (.SBE_LOG C.index, B1T$ SBE] eql .B ‘Does this bit exist 
120 ; ta (.SBE_L "; ‘Does this bank exist 
; LA (.SBE_LOG ‘Does this board exist 


et en el 
RPS 


ate that this sbe already exist 


ae 
— 
mn 


ek ed ed ed ed ceed cee ceed eee eel oma 


SayuiSusyuues 


=~ 
Ww 
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ee ee oe ee ey 


rs 
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KUN 2zS 


edd ceed ced eed eee Om ced ceed 
BNA 


Jed IARC OOSOOnO 
FAaRTLS 


JOANN VVSSE3F 
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OooN 


a 


RIS 3a3 


PPRERPRRC CeCe eee tt 


BUUyY 
ened 
WONAUL WN © 


cond) and coach tasty won 


a 


PARSER RE 


DRIVE IDENTIFICATION ROUTINES 


exitloop; 
end; _ 


end; 


' 
' 
! by seat ing the flag sbe_ 
i up the P 
i and test to see if this ge | 
£ If the sbe did exist then re 
if not .SBE_EXIST 
then 
beg 


Test to see if this sbe ung slroedy i 
xist. 
rom Haintenance” count, Rw this sbe into the table 


aw 
SER MACRO M1113 29-MAR-82 13:41 PAGE 102 
ROUTINES 


5 


7-Mar-1 19 
pomar=1985 19: 


in A yy table 


SEQ 0106 


3:46 TOPS-20 Bliss-16 V2(212) 
:23:4 PA: <NEALE>MLX4.BL1.5 (11) 


did not exist then 


module needs to 


Prom flaintenanced. 


urn from this routine. 


'‘Was this sbe found in the table 


in ud’. wa 
PM_SBE_CNT C.LUN, .BOARD, PM_SBES$_S 


Now see if the Prom Maint Program needs to be 
run on n this array module. 
PM 


Ss not found in the table so up the count 
-PM_SBE_CNT C.LUN, .BOARD, PM_SBES. SUP + 1; 


f .PM_SBE_CNT C.LUN, .BOARD, PM_SBES_SUM] eql 10 ‘Is the Limit exceeded 
‘The limit was exceeded 


n 
SA (. LUND ; 
PRINTS GAT, eARRAY , 
!*ARRAY XX > RUN ML11 







MSG2) | 
PROM MAINTENANCE PROGRAM’ 


S_COUNT, BITS_SBE 
SBES_COUNT, BNKS” SBE 





a 


VER COMMENTED Oui us CODE 


REPLACED BY ABOVE C 


if yt ar TYP eal 1) and 
S T.LUNS ARRAY 


Y, 0. “16, 16. 0) eg 


C. LUN 


1 


in the table so 
% the table 


RAY, 0 
6K_LIMIT)5) 


; !Load the failing bit 

” itoad the failing bank 

‘Load the failing board 

a the failing unit 

Indicate this is the first one 
* 1Up the count of unique sbe's detected 


16, 0] eql H64K_LIMIT)) or ((.ARR_TYP eql 0) and ( 


— 
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1 
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ORMANCE E 








NTIFICATION ROUTINES 


DRIVE IDENTIFICATION ROUTINES 


000177 


011264 
153146 


177600 


174572 


UP.HARD. COUNT : 
JSR 





MERCISER MACRO M1113 29-MAR-82 13:41 PAGE 03" 


S7-mar=1969 19:98:4 


G2); 
PROM MAINTENANCE PROGRAM’ 


TOPS=20 Bliss-16 V2(212) 
PA: <NEALE>MLX4.BL1.5 ) 


-SBTTL UP.HARD.COUNT DRIVE IDENTIFICATION ROUTINES 


MOV 
MOV 
MOV 
ASR 
ASR 
ASR 
ASR 
ASR 
ASR 


@ 
bene 
~ 


PELE 





R1.$SAVE 
20(SP) 
R »RO 








R 
RO.R2 

1G{SP) .R2 

R 

HARDS (R2) 

SBES. COUNT .#177 





BANK ,- (SP) 


ARRAY , * 


SBE .EXIST 
INDEX 


INDEX ,* 


SEQ 0107 


3 


2864 


2867 
2874 


2877 


ALE EE LN ee eat ee 


2878 


SEQ 0108 





9 
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DRIVE IDENTIFICATION ROUTINES 


sPMLX4 





2879 
2880 
te 

& 
2898 
2901 
2907 
2910 
2911 
2909 
2921 






— 
Ww 
Pon) ferns 
ae Ww) 
= x x *, 
p> ae S| be 
g es 4 : 
. Smt, boos a F &, 
te a ee ®@ *@ ¢e@ &@ ee C7 ee oh ee *@e@ xy ee ¢6 
.. ~ ~ & & _ ~ 
~~ od ~ tS et toe 
a 4a <S 8 a 4 i ofati- 388 ¢ = 
= iy go SF "8S 8 3 oe few S 
a a «- Hem, PS Ls ad 
* '_ At we + aw a as on Se oe 15 
F 2558, ~ Sa = 4 ae. t) Te on ans @ 
s e ay Poe? es 6 a pene 
BR ee ee ing mn oe eMOSUEESOLE SEO ote BUN ewer EES 


SOESSSISRESScoseyh yaa eeUSSESUERERSESERESSEzzRSES ESS 


4$ 
5$: 
6$ 





PePenerrseee ese seeccs as souSSUSe See E TEN RERESTERARSESE 


SIIV SS SSS SE aabattatrat® BSBORRAKRKN IE 





+> 45 . +7 -¥ 
t +> +o--D 1D +P eR UR UR US be ig is DLP LD LD LD LD LD LD DID ID IP ID IP ID ID Se ia hip a ia) 


29-MAR~82 13:41 PAGE 105° 
SEQ 0199 


DRIVE oo ROUTINES oa a 19, Sica Pare 


3 2922 





#177703 
#74, ( 
R4, RA) 









nome 
dees tres 
$s 


1 
1 
1 


: 
; 
9 Oa 


> cr + yt ye > 
t+ eed coed sacl ee eed. wordt 

wow 
AO 

& 

~~ 

xz 

—— 

Net 


gata tatty 


Des 


T 


outi ize: 153 wo 


rds 
tack depth per invocation: 10 words 





Hy 
em Ww 


; 2923 
05,R4 
i ; 2924 
HA oecu | , 
sat . COUNT 2396 


routine UP_SOFT_COUNT (LUN, ARRAY) : novalue = 
begin 
++ 
ROUTINE: UP_SOF T_ COUNT (LUN, ARRAY) 
PURPOSE : TO pee THE SOFT ERROR COUNT FOR THE GIVEN 
SEE IF THE SOFT ERROR THRESHOLD HAS 
BEEN REACHED. 


ARGUMENTS: LUN = LOGICAL UNIT WHICH nic THE SOFT ERROR 
ARRAY = THE BOARD NUMBER (0-1 


CZMLBBO PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE $06° | 
UP.HARD.COUNT DRIVE IDENTIFICATION ROUTINES SEQ 0110 | 
PLX4 7-Mar=1982 19:26:46 TOPS-20 Bliss-16 V2(212) | 

: DRIVE IDENTIFICATION ROUTINES yom iat 73 19:5334 PA: <NEALEDMLX4.BLI.5 (12) | 

5 

| 


Www a 
airs SoS Sas aa 


local VER CZMLBB ADD THIS LOCAL STORAGE 
SBE_EXIST; iplag to indicace if sbe already exists 


OFTS C.LUN, .ARRAY, 0, 16, 0] = .SOFTS C.LUN, .ARRAY, 0, 16, 0) + 1; 
VER CZMLBB ADDED FOLLOWING CODE TO LOG SBE’S 


Ss 

' 

; 

i 

' First search the sbe Log table and yg Oi 
! this single thy arose r gady a... s in 
' the table. does " ist’ then just 
' increment “a urance else 

' record its failing location. lies the 
table. 

H 
{ 


rere 
BSEaS 


t 


: Only log away 128 single bit errors. 





fs Snes Coun iss 127 ‘Have 128 errors been logged yet 
segte ‘There is room for at least one more sbe 
EXIST = FALSE; ‘Init the existence flage to false 
be 


Search the single bit error log table 
: and see if this error already exist. 


incr index from 0 to .SBE$_COUNT do 
begin 


if ( SBE LOG C; index, 8178 SBE egl .BIT A 
(SBE_LOG ¢. inde "sal BARK) 
CSBETOS Fo naex: BAKE SBE eal “BOARD 
hen re LOG C.index, UNITS_ SBE] ¢ eql . 


ag ‘This gbe alread exist. so . up its occurance count 
LOG ping - inde mien. Patan SBE] = . SBE F LOG Palen SUMS SBE 
SBE_EXIS ndicate that this” = nivondy exist 










NUM) and 
) and iDoes this bank exist 





aaa, ER eee ree eee etna 


H 9 
+i ace MACRO M1113 29-MAR-82 13:41 PAGE 107 

















it 
UP.HARD.COUNT DRIVE IDENTIFICATION ROUTINES SEQ 0111 
BBS MLX4 7-Mar-1982 19:26:46 TOPS-20 Bliss-16 V2(212) 
382 ; DRIVE IDENTIFICATION ROUTINES Soar 1988 19:54:64 PA:<NEALE>MLX4.8L1.5 (12) | 
ae: sistem 
35 ‘ . 
33 ; end; | 
396 ; + 
3 : ! Test to see if this sbe was already in the table 
5598 ;: ! by testing the flag sbe_exist. If it did not exist then 
395 : enter this SBE into the table. 
1: i NOTE: 
3 : ! Soft errors are not counted toward the Prom Maintenance 
~ § : call out. 
os r 
: 12 if not .SBE_EXIST ‘Was this sbe found in the table 
> é en 
8 ; Ly begin ‘It was not found in the table so up the pm count 
5410 : 16 1+ 
11 ; 17 ! This sbe was not found in the table so 
ig E 18 ! load this failing sbe into the table 
13 ; 019 ! at the bottom of the list. 
af: r 3 i. 
18 : 30 § SBE_LOG [.SBES$_COUNT, BIT$_SBE] = .BIT NUM; !Load the failing bit 
Ww: SBE_LOG [.SBES$_COUNT. BNKS_ = .BANR; ‘Load the failing bank 
18 : 30 4 SBE-LOG £.SBES—COUNT. BRD = .BOARD: Load the failing board 
19 ; 5 SBE_LOG [.SBES_COUNT, UNITS SBE] = .LUN: ‘Load the failing unit 
; 3 $ SBE _LOG [.SBE COUNT & = 1; !Indicate this is the first one 
2 ; eH SBES_COUNT = SBE COUNT + 1; {Up the count of unique sbe's detected 
: 0 7 
: r : end; 
S: $i 
3 ! VER CZMLBB THIS CODE WAS COMMENTED OUT AND REPLACED BY THE : 
8; ¢ ABOVE CODE. 
: i if (((.ARR_TYP eql 1) and (.SOFTS C.LUN, .ARRAY. 0. 16. 0] eql S64K_LIMIT)) or ((.ARR_TYP eql 0) and ( 
1; ; . ~SOFTS T.LUN, .ARRAY, 0, 16, 0] eql $16K_LIMIT)5) 
: 9 then 
§ 0 ! 
5: 1 ! G2); 
; ¢ | PROM MAINTENANCE PROGRAM’ 
: ie 
$ 5 


fA, 


. 
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SEQ 0112 | 
MLXG 27-Mar-1 19:96:68 TOPS | 
; DRIVE IDENTIFICATION ROUTINES c7-Mar-1982 19:23:44 PAz< | 
| 
.SBTTL UP.SOFT.COUNT DRIVE IDENTIFICATION ROUTINES | 
520104 145224 ie ums 2945 
110 060856 MOV apts). Rs : LUN,* 2962 
04017 R RO 
ved a 
4( ASL 
2401 000016 ADD 16(SP) .RO : ARRAY,* 
: 261 133590 MOV SOEs CCONT RI 2976 
ere 9 me aise , 
66 940139 CLR | : SBE.EXIST 2979 
57 C 4. ae 3: INDEX 
469 wate 1$: mov RO.R : INDEX,* 2989 
71 2401 ASL R4 
af 3188 011264 pH . gab 86 Re 
74 060174 152466 MOV BIT .NUM,-(SP) 
75 ’ +44! MOV (R2) ,-( ) 
26 0402 ASR (SP) 
Ttste ASR (SP) 
78 D403 ASR Ot 
DC 1513 ASR 
4481 040214 ASR 
482 0402 18 177600 BIC (SP) 
483 040¢ ow ($P)+ 
485 040< 176112 MOV SP) : 2990 
Rae ENDS: ROVE SP) 
8 0402 5 177774 BIC g{SP) 
489 040262 ane 
040. 174072 MOV (sp) : 2991 
040252 ASR 
35 04 0¢ ASR (SP) 
9% ¢ d25¢ 177760 BIC #177760, (SP) 
$6 04026. cH (SP)+, (SP)+ 
97 040266 MOV —s._«aR5. = (SP) : 2992 
98 04027C MOV (R2) ,=(SP) 
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CATION ROUTINES 


sPMLX4 


4$: 


011264 
152312 


160077 
017700 
173742 
177774 


173722 


177703 
000074 


rs 


i 2 


3; Routine Size: s 
; Maximum stack depth per invocation: 
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DRIVE IDENTIFICATION ROUTINES 


#177770, (SP) 
(SP)+,(SP)+ 


ar gyrere (ms) 
AG 









p. (RO) 
#1. SBE.LOG+2(R1) 
sees. count 


124 word 


8 words 





* , SBE EXIST 


INDEX 
INDEX ,* 


SBE .EXIST 


5 


7-Mar-1 
7-Mar-1 


SEQ 0113 
19:26:42 
3B 19:5$.64 


TOPS 
PA:< 


| 








kK 9 
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CZMLBBO PERFORMANCE EXERCI 

UP.SOFT.COUNT DRIVE IDENTIFICATION ROUTINES SEQ 0114 
563 ;MLX4 so for- 138 13:38:09 TOPS-20 Bliss-16 V2(212) 
re : INITIALIZATION CODE 7-Mar-1982 19:23:44 PA:<NEALE>MLX4.8L1.5 (13) 


Zsbtel INITIALIZATION CODE" ee 
“INITIALIZATION CODE 1S EXECUTED AT THE BEGINNING OF EACH 
PASS R UP CURR 
OPERATOR HAS ISSUED A START, RESTART OR CONTINUE C 
DURING INITIALIZATION, THE "GPHARD' MACRO IS USED TO GET 
P=TABLE INFORMATION FOR THE LOGICAL UNIT UNDER TEST. THE 
OF UNITS AVAILABLE FOR TESTING IS CONTAINED IN A 
HEADER LOCATION ("LSUNIT"). 


THE CODE WITHIN THE INITIALIZATION SECTION IS DIVIDED 
INTO “—— rae 


ras 


Se Pe Se Se Ge Ge Ge Ge Be Se Be Ge Se Ge Ge Be Be Be Se Se Ge Be Ge Ge Ge Be Se Be Ve Se Se Be Se Be Se Se Se Se Se Ge Se Se Se Se Se Be Be @e Se Se Be Se 





Se 
VMIEWN=OO 


NO 





MVM 













3379 CE-ONLY CODE WHICH 1S EXECUTED 
580 ONLY ON THE VERY FIRST PASS (I.E., 
1 1 WHEN THE OPERATOR HAS JUST TYPED 
5 3062 IN THE "START® C : 
2) CODE WHICH SHOULD NOT BE EXECUTED 
5 ON THE FIRST PASS, BUT WHICH IS 
585 8 TO BE RUN ON EVERY SUBSEQUENT PASS: 
586 3066 3) COMMON CODE WHICH IS TO BE EXECUTED 
5B 3067 ON EVERY PASS (INCLUDING THE FIRST). 
588 3068 
589 9 local 
590 70 PLOC; 
591 3071 
59 if (CREADEF (EF_START)) or (READEF (EF_RESTART))) 
59 then {THIS IS CATEGORY 1 CODE 
594 begin 'a 2 
595 QUICK = 1: 
CLRTBLS (3; 
incr LUN from 0 to (.LSUNIT - 1) do 
in 'e 3 
LSLUN = .LUN: 
if GPHARD (.LUN, PLOC) neq 0 
then ike 


in 
PEALE_ADDR [.LUNJ = .PLOC: 
if .NUM_DRIVES eql 0 then INIT_ADDRESSES (.PLOC): 





NUM_DRIVES = .NUM_DRIVES + 1: 
10 DRIVE STATUS £.LUR] = ACTIVE: 
11 CONFIG (.LUND) ; 
1 te & & 
1 else 
1 DRIVE_STATUS [.LUN] = INACTIVE: 
16 end: le 3 
1 


eee see es = ee ee ee ee 


TE  dnteeus 
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CZMLBBO PERFORMANCE EXERCISER 
UP.SOFT.COUNT DRIVE IDENTIFICATION ROUTINES SEQ 0115 
19 ;MLX4 7-Mar-1982 19:26:34 TOPS-20 Bliss-16 V2(212) 
O ; INITIALIZATION CODE $onar-toR5 19:5$34 PA:<NEALEDMLX4.BLI.5 (13) 
: ‘ae 2& 
; : else iTHIS IS CATEGORY 2 CODE 
¢ : hs QUICK = 0; 
4 : 108 !CATEGORY 3 CODE WOULD GO HERE, BUT THERE IS NONE. 
ri 103 ENDINIT: le 1 * 
$55 soars nergy susgre wants 38874 HINTAIRETIALIZATION cone sss 
040500 012700 0 MOV #46,R0 : 3072 
0504 10464 TRAP «7 
040506 103404 BCS 1$ 
3640 040510 012700 000037 MOV #37.R0 
3641 040514 104447 TRAP = 
3642 516 10307 BHIS 
040520 012767 000001 172146 1S: MOV #1, QUICK ; 3075 
3644 004767 174080 JSR PC; CLRTBLS ; 3076 
3645 3 016704 141254 MOV LSUNIT,R4 = 3078 
3078 049540 000462 BR 6% 
3648 040542 010367 141326 2$: MOV R3.LSLUN : LUN,* 3080 
9 040546 01030 MOV ~R2 : LUN,* 3090 
50 040550 ASR R 
51 040552 ASR R 
365 040554 2 ASR R 
5 040556 2 034442 ADD #DRIVE .STATUS,R2 
3654 010300 MOV , : LUN,* 3082 
55 040564 104442 TRAP & 
040566 010001 MOV RO.R1 : *,PLOC 
57 040570 001432 BEQ 4 
38 cosee | boesoD ASL ve a — 
3660 76 010160 034422 MOV R1,PTABLE.ADDR(RO) : PLOC,* 
1 005767 173650 TST Nu. DRIVES : 3087 
1004 BNE 
I> O0sv6s 176370 ish PE“INTT ADDRESSES : ere 
5 04061 572 TST (SP)+ 
5 173632 3$: INC DRIVES : 3089 
4 010 46 MOV R2,-(SP) ; 
1 MOV sf P) : LUN,* 
16 177770 BIC #177770, (SP) 
12746 000001 MOV #1,-(SP5 
q S bose | 143746 4 (SP) » 538) 
beee 10316 MOV Ra CSP) : LUN,* 3091 


a setnitianeaiitions 
m9 
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CZMLBBO PER 
LINIT INITIALIZATION CODE SEQ 0116 
75 ZMLX4 37-Mar-19 19 TOPS 
26 : INITIALIZATION CODE 7-Mar- 19 PA:< 
M: 04 175126 JSR PC «CONFIG 
: BR 5 : 3082 
tater my oe uN. 
68 04 56 177770 BIC w197770 (SP) ~~ 
568: 1% 000001 MOV #1 =(SP SP5 
685 143714 JSR PC BLSPU2 
686 000010 5$: ADD #16,SP ; 3079 
368 INC RS : LUN 3078 
688 6$: CMP R3,R4 : LUN,* 
685 BLT 2$ 
.9( RTS PC s 72 
691 171754 7$: CLR Ick : 100 
+4 RTS ee s 5 
594 ; Routine Size: 75 words 
695 : Maximum stack depth. per invocation: 9 words 
1 
$706 ~SBTTL LSINIT INITIALIZATION CODE 
10 0407 004767 177546 LSINIT::JSR — : 3100 
3711 040 104411 TRAP 
12 0 000207 RTS 
14 ; Routine Size: 4 words 
5 > Max mum stack depth per invocation: 0 words 


—s 





oe 


N 9 
CZMLBBO PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 113 
LSINIT INITIALIZATION CODE SEQ 0117 
723 :MLX4 7-Mar-1982 19:24:4 TOPS-20 Bliss-16 V2(212) 
4; GENERATOR FOR OPTION 1 ote 3 19:33:34 PA:<NEALE>MLX4.B8L1.5 (14) 
Zsbttl ‘GENERATOR FOR OPTION 1° 
routine GENT (SECTOR, COMP_FLAG) : novaiue = 
begin ie 1 * 


++ 
ROUTINE : GEN1 (SECTOR, COMP_FLAG) 


PURPOSE : TO GENERATE THE ENTIRE 4k-WORD WRITE BUFFER FOR OPTI 
THE GENERATION IS IN 16 GROUPS OF 256 WORDS (THE $1Z 
OF 1 SECTOR). EACH GROUP OF 256 WORDS RECEIVES THE 


i ON 1. 
E 

e 

: SECTOR ADDRESS WHERE THE WORDS WILL BE TRANSFERRED. 
; 

‘ 

' 





be a bt tr tf a Sr 


USUI SOB NAARUN OOD IRR 


= 


incru = sa from (.SECTOR) to ((.SECTOR) + 15) do 
n 





incru COUNT from 1 to 256 do - 


fi Ie 2B ® 
( F + (.OFFSET)) = (.SECT); 'REGULAR DATA 
a 





= .OFFSET + 2; si 


a ARGUMENTS: (1) SECTOR ~- CURRENT SECTOR NUMBER. 
wi | (2) COMP_FLAG = AN INDICATOR WHICH IS USED TO DECIDE 
11 WHETHER THE LOCATION IN THE WRITE BUFFER 
ais SHOULD BE COMPLEMENTED. 
31 
31 local 
$ 31 OFFSET; 
- 312 
Z 3156 OFFSET = 0; 
5 31 | 
: 3128 if .COMP_FLAG 
3 $155 then 'GENERATE COMPLEMENT DATA 
: sie incru att from (.SECTOR) to ((.SECTOR) + 15) do 
: 13¢ begin 
$ $132 : 
$ 3134 incru COUNT from 1 to 256 do 
: 4. in 'e QA ® 
$ 1 ( F + (.OFFSET)) = not (.SECT); 'COMPLEMENT DATA 
; 1 OFFSET = .OFFSET + 2: ) 
: 139 end: '® 2A * 
$ 140 
: 133 end 
$ 148 else 'GENERATE REGULAR DATA 
3 148 
3 1 
: 1 
3 1 
3 1 
§ 1 
: 1 
: 1 
: 1 
3 1 
: 1 





RWI Ooo NO 


end; 








WV 
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LSINIT INITIALIZATION CODE SEQ 0118 
> MLX4 7-Mar-1982 19:26:64 TOPS=20 BLiss-16 v2(212) 
es : GENERATOR FOR OPTION 1 oF rar~ 1985 19:54:44 PA: <NEALE>MLX4.BLI.5 (16) 
B2 ; 1 
788 : 157 return; 
84 ; 3136 end; ie 1 * 
578° -SBTTL GEN! GENERATOR FOR OPTION 1 
GEN1: JSR R1, $SAVE4 ; 3105 
; CLR R2 : OFFSET 3126 
MOV 16(SP) ,R1 : SECTOR,* 131 
MOV R1_R4 
ADD #17,RG 
000014 BIT #1,14(SP) : *,COMP.FLAG 3128 
mov R1,23 3 *,SECT 3131 
7 1$: TRAP 22 5 132 
3 MOV RI : SECT,* 1 
: COM R1 
: MOV #1,R0 : *, COUNT 3135 
? 2s: MOV RI 6 WBUFF (R2) : *,*(OFFSET) 31 
3 ADD #2,R : *, OFFSET 31 
3 INC : COUNT 135 
CMP 4400 : COUNT,* 
. BLOS 
: INC : SECT 3131 
§ 3$: CMP RS : SECT,* 
: ais, ope 128 
: 43: TRAP 35 : 146 
31 MOV RO : *, COUNT 149 
31 5$: MOV oUF (R2) * SECT, (OFFSET) 151 
. ADD #2.R : *, OFFSET 152 
81 INC : ¢ 149 
Bc CMP 4400 ; COUNT,* 
8 BLOS = s«5 
Be INC ; SECT 3145 
8. 6S: CMP R1.R4 : SECT,* 
Bc BLOS 
8 RTS PC : 3105 


: Routine Size: 46 words 
; Maximum stack depth per invocation: 5 words 


a 57 
ro >¢ 


10 | 
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C2 
GENT GENERATOR FOR OPTION 
B34 -MLXG 7-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212) 
é PATTERN NUMBER SELECTION Soper 1388 19:3$.44 PA:<NEALE>MLX4.8L1.5 (15) | 
83; 159 Zsbttl "PATTERN NUMBER SELECTION’ 
5" $ 160 routine SELPAT : novalue = 
5: $ 16g 
. : 1 §So¢ . 
B42 ; 166} ROUTINE: — SELPAT 
58 : : PURPOSE : TO SELECT THE NEXT PATTERN NUMBER IN OPTION 2. 
B46 : 1 i THIS ROUTINE AUTOMATICALLY COMPLEMENTS THE CURRENT 
5847 ; 1 i PATTERN NUMBER AND EXAMINES THE SIGN OF THE RESULT. 
848 ; 170 } HEN IT IS TAKEN TO BE 
B49 ; 171 } AC TERN AND 
850 ; 178 i IF RESULT IS 
rH ; 173 . THEN AN ENTIRELY NEW PATTERN R IS 
852 ; 17%4 |! PATTERN NUMBER IS OBTAINED BY 
$85 : 179 E OLD. 
8 28 : Ww 
836 ; 178 PATTERN = -(. PATTERN): 
B58 : 190 if .PATTERN geq 0 then PATTERN = .PATTERN + 1: 
3 50 : 183 return: 
SE 5 $ 1 end; 
B66 . .SBTTL SELPAT PATTERN NUMBER SELECTION 
870 041 7 171604 SELPAT: NEG PATTERN : 3178 
871 f 3767 171600 ist PATTERN : 3180 
a7 1100 $ 171572 INC PATTERN 
th) 11 7 1$: RTS PC : 3160 
876 : Routine Size: 8 words 
5 ; Maximum stack depth per invocation: 0 words 


82 
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7-Mar-1982 19:24:4 
USING THE PATTERN TABLE Somer 1385 19:54:46 
Robes ‘USING THE PATTERN TABLE’ 
tine GETCNTS (PATTERN) = 
begin 
++ 
ROUT INE : GETCNTS (PATTERN) 
PURPOSE : TO POINT TO THE APPROPRIATE BLOCK OF THE PATTERN 
T GRAB _THE VALUES WHICH ARE REQUIRED FOR THE 
PATTERN GENERATOR FOR OPTIONS 2 AND 4. 


ARGUMENT : PATTERN = THE CURRENT PATTERN NUMBER. 





TINE. IT IS THE 4-BIT BINARY AMOUNT 


*COMP COUNT® RECEIVES THE NUMBER OF NIBBLES OF 


(3) 
COMPLEMENT DATA. 








aie aa -PATTERN of 


{1 to a! 


PA NOM . gfarT y - 1; 
VALUE = 
end 






[-5 to li 
ATNUM = -( PATTERN) - 1; 
VALUE= %b°0101'; 
end; 
{5 to 1¢9 : 





in 
= pare - 6; 
VALUE = Zb°1111': 
end; 
[-10 to ~6) : 
PA = -(.PATTERN) = 6; 
USING THE PATTERN TABLE 





Sponar=1963 19:98:46 


RESULTS: (1) a RECEIVES THE VALUE WHICH IS RETURNED a 


lorena’ Bliss-16 v2(2 
A: <NEALE>MLX4.B8L1. 


aaah BE USED AS THE CONTENTS OF A NIBBLE OF COMPLEMENT 


(2) “DATA_COUNT’ RECEIVES THE NUMBER OF NIBBLES OF DATA. 


12) 
(16) 


iorsnee Bliss-16 V2(212) 


PA:<NEALE>MLX4.BL1. 


5 (16) 


SEQ 0120 





CZMLBBO PERF ORMANC 
SELPAT PATTERN NUMBE 
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VALUE = 2b°0000'; 
end; 





tes; 
DATA_COUNT = .PATTBL [.PATNUM, : 
“COUNT = -PATTBL PATNOR COUNTS: 
return - VALUE; 
.SBTTL GETCNTS USING THE PATTERN TABLE 
1441 GETCNTS: JSR ef SsAves : 
060075 mov (SP), 
000005 CMP a5 
BGT 1 
nr ae : 
000012 mov 
177773 1$: CoP ' 
BLT 
TST 
BGE 
MOV ; 
SUB ; 
BR. 
2$: CMP : 
BLT 
Ch 
BGT 
MOV : 
SUB $ 
BR. 
3$: CMP : 
BLT 
CMP 
QGT 
MOV : 
aun Re 
4$: ASL R : 
520 171424 mov BATTBL(R1) DATA. COUNT 
O34359 174450 van MOV PATTBL+2(R1), COMP. COUNT : 
: USING THE PATTERN TABLE 
ROY R2,RO 3 
RTS PC : 


Routine Size: 56 words 
Maximum stack depth per invocation: 3 words 


: PATTERN, * 


* ,PATNUM 
PATNUM 
* , VALUE 


* ,PATNUM 
* ,PATNUM 
* , VALUE 





* ,PATNUM 
VAL 





VALUE ,* 


7-Mar-1 
7-Mar-1 


i 


SEQ 0121 
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NIBBLE GENERATOR 


*NIBBLE GENERATOR‘ 
+ ee (BUFFER, WRDCNT, VALUE) 


+ 
+ 


rout ine 


ROUTINE: 
PURPOSE : 


ARGUMENTS: 








n 
= not .FLAG: 
VALUE = not .VALUE: 


if .FLAG eql 0 
ther - 


Symar-1983 19:35:04 
:; novalue = 
‘* 1 * 


FILLER(BUFFER ,WRDCNT , VALUE) 
TO LOAD A_CHOSEN WRITE wei! ONE NIBBLE AT A Has F WITH A 


PARTICULAR PATTERN, FOR A SPECIFIED NUMBE 
THIS ROUTINE IS THE HEART OF THE GENERATOR POR OP TTONS 2 AND 













OUNT FILL T THE APPROPRIATE 
THE CHOSEN BUFFER WITH THE CONTENTS OF 
A COUNT IS EXHAUSTED THE OTHER COUNT IS ST 
AND EACH TIME COUN S BEGUN, ‘VALUE’ 
y COUNT taal WILL BE USED 
saree ! THAT THE BUFFER WILL BE RE 










A.C 
DATA, COMP, 


(1) BUFFER = THE STARTING ADDRESS OF THE CHOSEN WRITE BUFFER. 
(2) WRDCNT = THE NUMBER OF WORDS OF PATTERN TO BE GENERATED. 


(3) VALUE = NIBBLE OF DATA TO BE PLACED IN THE WRITE BUFFER 


te 
iFLIP. THE FLAG 
!AND THE DATA 


‘CHOOSE A COUNT 


THE COUNT = .COMP_COUNT 
THE COUNT = .DATA_COUNT; 


else 


decr C 






NiBBLE = (((.NIBBLE) + 4) mod 165: 


a from .THE_COUNT to 1 do 
FFER + (. OFFSET) )<.NIBBLE, 


: a ar THE COUNT 


0> = . VALUE: 
‘CHANGE NIBBLE POINTER 


TOPS-20 Bliss-16 V2(21 
PA: <NEALE>MLX4 abut 5 ¢ et 


‘LOAD THE NIBBLE 


SEQ 0122 


| 





0 
CZMLBBO PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE #18 
GETCNTS USING THE PATTERN TABLE 





SEQ 0125 








MILX4 7=-Mar-1982 19:24:46 TOPS=20 Bliss-16 v2(212) 
: NIBBLE GENERATOR oho 1385 19:38s04 PA:<NEALE>MLX4.BLI.5 (17) 
- if .NIBBLE eql 0 
s 2 then 
ie: : in ie 4 * 
: BREAK; 
4: 1 OFFSET = .OFFSET + 2; 
4075 : ¢ WRDCNT = .WRDCNT = 1: 
re : ¢ if .WRDCNT eql 0 then return; 
: end: in & & 
1 : 's 3 
4083 : 10 ‘se 2s 
5: 12 end: ie 1 
1090 .SBTTL FILLER NIBBLE GENERATOR 
409% 1266 004167 144042 FILLER: JSR R1, $SAVE ; 
1 CLR : FLAG 
4096 1 CLR RS : OFFSET 
1 CLR Re : NIBBLE 
4098 O43 7 101 1$: COM R : FLAG 
1302 0¢ 166 000016 COM 16(SP) : VALUE 
41 1306 005701 TST R1 : FLAG 
41 1 101003 BNE 
2 \ 1¢ ' 171364 “44 COUNT ,R4 e * , THE. COUNT 
41 1 116704 171354 2s: MOV DATA. COUNT ,R4 : *, THE. COUNT 
41 4 10603 : MOV R4.RS : THE. COUNT, COUNT 
41 13 103764 BLE i$ 
41 1330 01054¢ 43: MOV -(SP) : OFFSET,* 
4108 041 066616 000024 ADD (SP), (SP) ; BUFFER. * 
41 1 110266 MOV R2,-(SP) : NIBBLE.* 
4110 041 i : MOV <(SP) 
4111 041 16646 6 MOV 24(SP) ,-(SP) : VALUE,* 
4i1¢ 1 104767 14 JSR ‘BL Shue 
4113 041 10216 MOV : NIBBLE,* 
SH Giles Biers gates a 
411g ! va f ek 
4117 041 1 MOV : *,NIBBLE 
4118 1 0101 BNE : 
4119 041 ' TRAP > 
4120 041 062705 000002 ADD : *, OFFSET 








5 


er ee ee ae 


amelie 


OO ee eee emer 
eee ee 
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SEQ 0124 | 
SMLX4 7-Mar-1 $ TOPS | 
§ 3 NIBBLE GENERATOR he a ts 9:3$ice PA:< | 
4125 0414 5 000032 DEC 32(SP) 3 WRDOCNT 2 
41 141 1 BNE és 3 3p 
41 141 000012 ADD #12,SP $ 
41 141 5$: RTS : 
41 1 000012 : ADD #12,SP ; 3 
41 14 DEC 3; COUNT 2 
4131 0414 1 BNE 4 
rh 14 000 QP 1$ 5 3281 
41 : Routine Size: 50 wo 
tizh 3; Maximum stack depth. Ae invocation: 11 words 
4141 


SS 






ZMLBBO PERFORMANCE E 
ILLER NIBBLE GENERATOR 
, 7-Mar-1982 19:26:46 TOPS-20 BLliss-16 v2(212) 
cies _— GENERATOR FOR OPTION 2 ohne 1388 19:23:64 PA: <NEALE>MLX4.BL1.5 (18) 
4146 : 3 tsbeel “GE RATOR FOR OPTION 2" 
4147 ; 4 poy : novalue 
cite : 5 
4150 ae 
c183 : 3 {ROUTINE : GEN2 
: i PURPOSE: TO GENERATE THE ENTIRE WRITE BUFFER (WHICH 
re : 1 i ’ WILL BE USED IN CONJUNCTION WITH OPTION s 
4155 : : BASED ON PATTERN TABLE ENTRIES. 
e128 : — 
c138 : 5 local 
rot : VALUE; 
4161 : VALUE = GETCNTS (.PATTERN): 
416¢ : FILLER (WBUFF, BUFSIZ, . VALUE); 
4165 ; —s 
rot r: 3 
SIE asses onezee 1712c9 cena agRTT™ EM _SEMERATOR FOR OPTION 2 
rte oele oe 177464 "JSR TCNTS ; 
cing Stase Sisns Sheba my 3 , 
41 1452 01 MOV (SP) : VALUE,* 
Si Beides SS One se . 
al 041464 RTS PC’ ' 
3; Routine Size: 14 words 
a} ; Maximum stack depth per invocation: 3 words 


oe a, 
aa Se Se ee ee 
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SEQ 0125 


3314 


CZ 
GE 






eRe ieasasssssensnsguseasensstessssssnsnessssssensiensnssnemsnsesmemereensereeerersees 


310 
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GENERATOR FOR OPTION SEQ 0126 | 
4191 :MLX4 7=Mar=1982 19:24:46 TOPS-20 Bliss-16 V2(212) 
ale : GENERATOR FOR OPTION 3 oe i 19:54:34 PA:<NEALEDMLX4.BLI.5 (19) 
419% ; Tsbetl "GENERATOR FOR OPTION 3° 
4195 ; routine GENS (COMP_FLAG) : novalue = 
4196 ; begin 
4197 ; 
4198 : 1 oe 
4199 : i ROUTINE: GEN3(COMP_FLAG) 
4201 : i PURPOSE: TO GENERATE THE ENTIRE WRITE BUFFER WHICH WILL BE MADE 
4202 : i UP_OF WORDS WHICH CONTAIN THE UNIQUE COUNT FROM ONE TO 
: : BUFSIZ. 
4205 : i ARGUMENT: § COMP_FLAG = THIS IS AN INDICATOR OF WHETHER OR NOT TO 
4206 : COMPLEMENT EVERY WORD IN THE WRITE BUFFER. 
4208 : ; 
4 $ local 
4210 : OFFSET: 
4211 ;: 
4 \¢ : OFFSET = 0; 
4213: 
4214 : if .COMP_FLAG 
3 5: then 'GENERATE COMPLEMENT DATA 
2 7 : incru count from 1 to BUFSIZ do 
° n 7 
4219 : (WBUFF + (.OFFSET)) = not (.COUNT); ‘COMPLEMENT DATA 
4220 : OFFSET = .OFFSET + 2: 
2 1: end 
4 5 : else !GENERATE REGULAR DATA 
a5 5 : incru se from 1 to BUFSIZ do 
Ps n 
7: 5 (WBUFF + (.OFFSET)) = (.COUNT): ‘REGULAR DATA 
: OFFSET = .OFFSET + 2: 
3 end; 
4231 : 9 return: 
4 : 370 end; 
-SBTTL GEN3 GENERATOR FOR OPTION 3 
4261 041 10146 GEN3: MOV R1,-(SP) : 33 
4¢ 14 1 CLR R1 > OFFSET 50 
43 HE 0 2766 000001 000004 BIT #1,4(SP) : *,COMP.FLAG 52 
4265 041 12700 000001 #1,R0 : *, COUNT 3355 











K 10 
CZMLBBO PERFORMANCE te MACRO M1113 29-MAR-82 13:41 PAGE 122 
GENS GENERATOR FOR OPTION 


SEQ 0127 
ZMLX4 g7-Mar-1 19:24:42 TOPS 
: GENERATOR FOR OPTION 3 7-Mar-1982 19:23:44 PA:< 
1$: MOV RO, WBUFF(R1) : COUNT, *(OFFSET) 3357 
COM FF(R1) : #(OFFSET) 
ADD #2,R1 : & OFFSET 358 
INC R : COUNT 355 
CMP RO,#4000 : COUNT,* 
BLOS 1$ 
BR 4$ g $328 
2s: MOV #1,R0 : *,COUNT 
$: MOV R +WBUFF (RI) : COUNT, * (OFFSET) 5 
ADD #2,R : * OFFSET 
INC : COUNT 36 
CMP RO,#4000 : COUNT,* 
BLOS 
4$: MOV (SP)+,R1 ; 3333 
RTS PC 


; Routine Size: 31 words 
: Maximum stack depth per invocation: 2 words 





I eee netentensessensnessseengnsnsnsenestsonresssesseintineeunmeeneeenee neers oe, 


0 
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GEN GENERATOR FOR OPTION SEQ 0128 


VALUE = GETCNTS (.MARPAT); 
FILLER (BUFFER, 256, .VALUE); 


wee ee a eee. oe 












3MLX4 7=Mar=1982 19:26:46 TOPS-20 Bliss-16 v2(212) 
06 i : GENERATOR FOR OPTION 4 oooar 18s 19:54:34 PA:<NEALEDMLX4.BL1.5 (20) 

: Asbttl RATOR FOR OPTION 4° 

5 routine GEN4 (MARPAT, BUFFER) : novalue = 

: begin 

: + 

: "ROUTINE: GEN4 (MARPAT , BUFFER) 

: i PURPOSE: THIS IS THE GENERATOR WHICH IS USED FOR OPTION 4, THE 

; i MARCH TEST. IT BEGINS AT THE START OF THE CHOSEN 

: i BUFFER AND GENERATES 256 WORDS IN THE EXACT WAY THAT 

; OPTION 2 DOES. 

: ARGUMENTS: (1) MARPAT = THE MARCH PATTERN NUMBER 

: & (2) BUFFER = THE STARTING ADDRESS OF THE CHOSEN BUFFER 

: local 

$ V ; 


return; 

rer end; 

4 -SBTTL GEN4 GENERATOR FOR OPTION 4 

£306 041564 016646 000004 GEN4: MOV 4 (SP) «= (SP) : MARPAT,* 3391 

e31 oa1a7e O46 96 000004 mov crass tars BUFFER 3392 
© & 

St Sie ages We a ie wu 
5 & 

£315 Bteoe Barer 37745: doe Peete wil 

2317 041616 000207 RTS PC’ : 

4 ig : Routine Size: 14 words 

2 : Maximum stack depth | per invocation: 3 words 

4326 


M10 
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GENS GENERATOR FOR OPTION 4 SEQ 0129 

4 2MLX4 ?-Mar-1982 19:24:4 TOPS-20 Bliss-16 V2(212) 

é _ GENERATOR FOR OPTION 5 oo oar~ 1388 19:524 PA:<NEALE>MLX4.8L1.5 (21) 

4331 ;: 95 tsbetl ' NERATOR FOR OPTION 5° 

4 $ 96 routine GENS : novalue = 

2 3 9 begin 

4335 : 99 +4 

; 90 i ROUTINE: GENS 

4338 : oe i PURPOSE: THIS IS THE GENERATOR WHICH IS USED FOR OPTION S. 

4339 : 03 ! IT BEGINS AT THE START OF THE WRITE BUFFER, AND GENERATES 

4340 : 04 } A FULL BUF DATA. THE FIRST 3 WORDS OF THE BUFFER 

4 1: 05 } RECEIVE THE 3 SEEDS WHICH WERE USED IN THE GENERATION. 

4 $ : $9 

4 : 08 local 

4 5: 09 OFFSET: 

4347 : 11 (WBUFF + 0) = .SEED1: ‘THE FIRST 3 WORDS OF THE 

4348 : 3412 (WRUFF + 2) = » SEED2: ‘WRITE BUFFER RECEIVE THE 

4349 : 3413 (WBUFF + 4) = .SEED3: 13 GENERATING SEEDS. 

ogee s aeie OFFSET = 6; 

4 32 : 3416 incru COUNT from 4 to BUFSIZ do | 

43535 ; 3417 begin 

4336 : 3418 RN 0; INOTE: USING SIGNED VALUES (FULL 16 BITS) 

4356 : 3420 (WBUFF + .OFFSET) = .RANDOM; 

4357 : 3421 OFFSET = .OFFSET + 2: 

7389 : 3458 _ 

4360 : 3424 return: 

4361 : 3425 ; 


EEREELERERELE 
RSNRER ORDO 
as vat 
sonal ond oma edd 
“J NIN 
NN =9UNIN@NNNN 





1 
1 
1 


PRES 


143574 
00000 


012670 


1$: 


sMLX4 


Maxi 


.SBTTL GENS GENERATOR FOR OPTION 5 
Mov Seed WBUF F 
MOV SEED2, WBUFF +2 
MOV SEED: * WBUFF +4 
MOV 
MOV #4-R2 
JSR *RN 
TRAP 
MOV RANDOM, WBUF F (R1) 
INC : on 
CMP R2,44000 
BLOS 
GENERATOR FOR OPTION 5 
RTS PC 


outine Size: 


ximum stack et Bes invocation: 


3 words 





SEQ 0130 

3396 

3411 

3413 

* ,OF FSET 14 

*° COUNT ar 

3418 

*,* (OFFSET) 3420 

«OFFSET 3421 

COUNT 16 
COUNT, * 

7-Mar1 9:26:42 TOPS 

Series | 9:23:44 PA:< 

3396 


sens a2 


RES 


1 


ronsseBeeanens 





SeRSAS ARAB GCE 


att 


PERFORMANCE EXE 
NERATOR FOR OPTI 


4399 a 


PUEIN = S 


YHANINIISSESS 
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SYSTEM ERROR DETECTOR 7-Mar-1 


Zsbttl “SYSTEM ERROR DETECTOR’ 
—— (LUN) = 
n 





‘es 1 « 


'44 

i ROUTINE: SYSERR (LUN) 

. PURPOSE : (1) TO SCAN FOR SYSTEM ERRORS AFTER A TRANSFER HAS ENDED. 
: (2) PRINT ERROR MESSAGES IF APPROPRIATE: 

i A) ERROR MESSAGES DURING RETRIES WILL NOT 

: BE PRINTED. 

i B) THE OPERATOR HAS THE ABILITY TO INHIBIT THE 

: PRINTING OF DATA ERRORS, BUT NOT SYSTEM ERRORS. 

' 


(3) DECIDE ON A VALUE TO RETURN WHICH WILL INDICATE THE 
RELATIVE SEVERITY OF THE ERROR 


ARGUMENT : LUN = THE CURRENT LOGICAL UNIT R 
CO TO NUMBER OF DRIVES MINUS 1). 


RESULT: VALUE RETURNED FOR THE SUBROUTINE SHOWS TYPE OF ERROR: 
ERRORS AT 


TRY ALLOWED FOR THESE TYPES OF ERRORS 
ATAL CONTROLLER ERROR 
ATAL DRIVE E 
ORRECTABLE DATA ERROR 
5 = CORRECTABLE DATA ERROR 


FIGURE OUT WHICH VALUE TO RETURN BY THE FOLLOWING SCHEME: 


(1) IF THERE IS A CHOICE BETWEEN DATA ERROR AND SYSTEM ERROR, 
FIRST CHOOSE TA E 


























(2) IF THERE IS A CHOICE BETWEEN FATAL AND NON-FATAL ERROR. 
FIRST CHOOSE THE FATAL ERROR. 
(3) IF THERE IS A CHOICE BETWEEN CONTROLLER ERROR AND DRIVE ERROR. 





FIRST CHOOSE CONTROLLER ERROR. 


abel 
PURPOSE _2_ CODE: 


ERRB. : ! VER CZMLBB ADDED THIS LOCAL 


7-Mar-1982 19:24:4 TOPS-20 Bliss-16 V2(212) 
$ 383 19:33:4 PA: <NEALE>MLX4.8L1.5 (22) 


SEQ 0131 


| 


REE 





saseeeeenenes 


4& 
4 
4 
4 
6 
Ps 
4 
4 
4 
4 


PERFORMANCE 


NS GENERATOR 


2MLX4 


FOR 


NINA ALAI AIA NIANIALNI IIA AI AI AIA 


& poreces 


82S 


C17 
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OPTION 


S3a 


Ww 


5 


URWN SOO NAUNRWR=O 


EAU AAA 


Win 


SYSTEM ERROR DETECTOR 


ERRY; 


ERRE = INACTIVE; 
E = INACTIVE; 
4 & 


ERR8 = INACTI‘/E; 
ERR9 = INACTIVE: 


i+ 


: THIS IS THE CODE FOR PURPOSE 1: 


if .SC 
then 
begin 


7-Mar-1982 19:246:4 TOPS-20 Bliss-16 V2(212) 
Somer 1 385 19:533¢ PA: <NEALE>MLX4.8L1.5 (22) 


: VER CZML8B ADDED THIS LOCAL 


! VER CZML6B 
! VER CZMLBB 


—s ARE SOME ERRORS -- FIND OUT WHAT KIND 


if ((.NED) or (.NEM) or (.PGE)) then ERR2 = ACTIVE: 
if ((.DLT) or (.PE) or (.MXF) or (.MDPE) or (.MCPE)) then ERR3 = ACTIVE; 


: VER ADDED THIS ERR9 


if (.MDPE) and ( not .SGL) then ERR9 = ACTIVE; 


: VER ADDED THIS ERR8 


if ((.DLT) or (.PE) or (.MXF) or (.MCPE)) then ERR8 = ACTIVE: 

if ((.WCE) and (.ECCDIS eql 0)) then ERRS = ACTIVE; 

Tf ((.UNS) or (.IJAE) or (.A0E) or (.RMR) or (.ILR) or (.ILF)) then ERR4 = ACTIVE: 
if ((.0PI) or (.DPAR) or (.CPAR)) then ERRS = ACTIVE: 

if ((.DCK) or (.crc) or (.SGL)) then ERR7 = ACTIVE: 

if ((.WCE) and (.ECCDIS eql 1)) then ERR7 = ACTIVE: 


if ((.ECH) or (.UNC)) then ERR6 = ACTIVE; 


e 
return 0; 
' 


. LABEL : 
: BEGIN 3 


-* | 
i THIS IS THE CODE FOR PURPOSE 2: 


| 
'*e 2 
: THERE ARE NO ERRORS -- RETURN SUCCESSFULLY 
‘NO ERRORS AT ALL 





CZ PERFORMANCE EX 

GENS GENERATOR FOR OPT 
4510 ;MLX4 
i) 
4515 : 
reat: : ; 1 
2 iF 5 
4a19 : 
4518 : 5 
4519 : 5 
4 : 5 
4521 ;: 5 
1358 | 320 
4526 : re 
4525 ; ot¢ 
4526 ;: 54 
4527 ;: 544 
$2 ; 545 
4530 : 3%$ 
4531 ;: 548 
4532 : 549 
4535 : 550 
4534 : 551 
4535 ; s228 
4536 ;: 355 
4537 ;: 554 
4538 ;: 555 
4539 ;: 55 
4540 «s 55 
4541 ; 558 
re rk : 559 
4543 ;: 560 
4544 ;: 561 
ei eS 
rere : 564 
4 $ 565 
4549 ; 566 
4550 : 567 
4551 ;: 
re 35 
ae: BR 
4556 : 278 
7 
4360 : 258 

é 278 
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7-Mar-1982 19:26:42 
SYSTEM ERROR DETECTOR yom id 3 19:38 
' IF RETRYING 
THEN LEAVE LABEL (NO PRINTOUTS AT ALL) 
BEG! 


N 4 
4 ERROR PRINTOUTS ARE ALLOWED 


BEGIN 5A 
IDENTIFY THE LOGICAL UNIT 
SCAN ‘= & PRINT DATA ERRORS 






E 
ELSE 


BEGIN 58 
IF THERE ARE SYSTEM ERRORS TO REPORT 
THEN IDENTIFY THE LOGICAL UNIT 





ELSE LEAVE LABEL 
SCAN FOR & PRINT SYSTEM ERRORS 
END 3 
PURPOSE_2_CODE : 
begin ‘sn 3 
: es TRYING 
uw PURPOSE _2_ CODE !(NO PRINTOUTS AT ALL) 
begin in 6 & 
if .ERROUT 
then 
!s SA ® 


n 
SA (LUND; 
PRINTB (SAY1, PHR10): 
'°ERROR BITS SET: 
if .ERR7 
then 
begin | 
if .DCK then PRINTS (FMT15, MLB20): 
if .crc then PRINTB (FMT15, MLB22): 
if .SGL then PRINTB (FMT15, MLB23): 
if ((.WCE) and (.ECCDIS eql 1)) then PRINTB (FMT15, MLB6): 
end; 
if .ERR6 


TOPS-20 Bliss-16 V2(21 
244 PA: <NEALE>MLX4.8L1.5 ( 


SEQ 0133 


32) 


licensee 


CZ PERF ORMANCE SAE MACRO M1113 29-MAR-82 13:41 PAGE 29" 








GENS GENERATOR FOR OPT SEQ 0134 
4 PALX4 7-Mar-19 TOPS- iss-1 
: é SYSTEM ERROR DETECTOR Sonera ees | 3:5$:4 74 PA: SMEMLESIE xe bu 5-133 2) 
4 then 
begin 
if .ECH then PRINTB (FMT15, MLB21); 
if .UNC then PRINTS (FMT15, MLB24); 
end; 
& i'n SA * 
else 
's 5B *# 


begin 
! VER CZMLBB CHANGED ERRS TO ERR8S 
of StS) or (.ERR8) or (.ERR4) or (.ERRS)) 


eh 


w 


n 
SA (. LUND ; 
PRINTB (SAY1, PHR10); 
| —_— BITS SET: 


E> E> SSB BB b> b> 


else | 
! VER CZMLBB ADDED TEST OF ERRO HERE 
if .ERR9 
then 
n 
SA (LUN); 
PRINTB (SAY1, PHR10); 
!"ERROR BITS SET: 
else 
leave PURPOSE_2_ CODE: 
end; 


end; - 'e 5B * 
if .ERR2 
then 
begin 
if .NED then PRINTB (FMT15, MLB2): 
if .NEM then PRINTS (FMT15, MLB3): 
if .PGE then PRINTB (FMT15, MLB4): 
end; 
if .ERR3 
then 


: 
5 
; 
9 


gcse 





__——e oom eee - — 





Fi 
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GENS GENERATOR FOR OPTION 


sPLX4 
: SYSTEM ERROR DETECTOR 


begin 
if .DLT then PRINTB (FMT15, MLBS5); 
if ((.WCE) and (.ECCDIS eql 0)) then PRINTB (FMT15, MLB6); 
if .PE then PRINTB (FMT15, MLB7); 
if .MXF then PRINTB (FMT15, MLB8); 
! VER CZMLBB ADDED ‘AND NOT .SGL‘ 

if ((.MDPE) and ( not .SGL)) then PRINTB (FMT15, MLB9); 
if .MCPE then PRINTB (FMT15, MLB10): 
end; 

if .ERRG - 

then 
begin | 
if .UNS then PRINTB (FMT15, MLB11); 
if .IAE then PRINTB (FMT15, MLB12); 
if .AQE then PRINTB (FMT15, MLB13); 
if .RMR then PRINTS (FMT15, MLB14); 
if .ILR then PRINTB (FMT15, MLB15); 
if .ILF then PRINTB (FMT15, MLB16); 


SEQ 0135 


Bpmar=1980 19:95:66 PALchEALESMLAG BLI~$ too> 


WW 


_ 
WHO 


w 


RESSECEESOSERESSRSERS 


end; 
4660 
1 if .ERRS 
ise vias 
4664 


if .OPI then PRINTB (FMT15, MLB17); 
if .DPAR then PRINTB (FMT15, MLB18); 
if .CPAR then PRINTB (FMT15, MLB19); 


3 


Sees 


4671 end; “A 
46 
46 end; ‘es 4 & 
4676 
75 end; 'e 3s 


Srhes SaNsasaveeeaeae nee oe caememeoes 


5s 
On 





Oe 7 
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GENS GENERATOR FOR OPTION 

sMLX4 

: SYSTEM ERROR DETECTOR 

i+ 


THIS IS THE CODE FOR PURPOSE 3: 


SEQ 0156 


7-Mar-1982 19:26:4 TOPS-20 Bliss-16 V2(212) | 
roe in 1 19:5$:6 PA:<NEALE>MLX4.8L1.5 (22) | 


eRss 












5: i f_ -ERRG !UNRECOVERABLE DATA ERROR (NO RETRY ALLOWED) 
4687 : return 4: 
4689 : it ERR? RECOVERABLE DATA ERROR (RETRY TO CLASSIFY) 
prt : return 5; 
1898 : i f -ERR2 ‘CONTROLLER FATAL ERROR 
rr tt : return 2: 
rt : 70 if ERR IDRIVE FATAL ERROR 
° en 
Z $ me return 3; | 
4 1: if (.ERR3 or .ERRS) ‘NON-FATAL ERRORS 
4703 : return 1 
4 ; else 
a; a = 
HY : ar: if ((.ERROUT) and ( not .RETRYING)) then PRINTB (SAY1, PHR11): 
4709 : 714 '*SC SET BUT NO SYSTEM ERRORS FOUND’ 
4710 ;: 715 return 1; 
4711 ;: ae end; 
4712 ;: 71 
ri : 718 end: ‘es 1 *® 
4 -SBTTL SYSERR SYSTEM ERROR DETECTOR 
4 1710 004167 143420 SYSERR: JSR R1,$SAVE5 : 
4 1714 TST =(§P) 
4 171 CLR -(SP) : ERR 
4 1 CLR -(SP) : ERR 
ss Be fe ius 
4 i 000004 CLR 4(SP) : ERR 
4 1 CLR R3 : ERR 
4 1 CLR RS 5 ae 
4 : 172602 1S} SAL -REG * 
é e e 
4 SMLX4 7-Mar-1 19:26:42 
é : SYSTEM ERROR DETECTOR | oo ar 1385 19:54:64 
4 1744 1 02 BMI 1s. 
4 1 JMP 5 
4 1 16e $78066 172376 1$: BIT #10000, aML .REG+10 : 
4 1 910 BNE 2$ , | 
47 ‘ 004000 172366 BIT #4000, aML .REG+10 





PERFORMANCE EX 


CZMLBB0 
SYSERR SYST 





age 


wad td Oe 
tx 









S88 
FRERRLLLLLRRKLKKE 


ee 


S833 


dedededes 


PELL HLHLHLLLRKSE 


791 
479 

4794 
rit 
i797 


Tatalets 


on 
ap 


ond cond cond eed end cond eed ed eed od eed ed end 


? 


EORVENE 


& 
™ 


RRSRSE 
Sac 














WLU. 


t? 


ee 





140070 


020000 


000010 
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172356 


000002 


172332 
172322 
172312 
172272 


172266 
172310 


172236 
172226 
172206 


172200 


172162 
172152 
172142 
172132 
172122 
172112 


172076 
172066 
172056 


$5: 


9$: 


12$: 


bangs 
o> 


+ ra. TF 
AT ET mt ae 


greacanee 
~o4<o~ 


= tS Pr 
— ee = BU 


ance 
o=~ 


og 
ts See PhS 
= PF meg et -) 


@w 
Goong 
one 





“2-2 
homey fey 


BNE 
BITB 
BEQ 
MOV 


DODo@@ 
oan 
o o 


2 
#2000,am .REG+10 


#1,2(SP) 
Zan sheee te 


7 g0000 . BAL .REG+10 
#1000 GAL .REG+10 
#200 QML .REG+10 
0000, aML .REG 


#1, (SP) 
#400, aML .REG+10 


#40000 ,@ML .REG+42 






#1,R5 

eREG+10 
& o@AL .REG+10 
#1000,@AL .REG+10 
£20000 ..@AL REG 









#1,R4 
#45000, aML .REG+10 
CCDIS 


#1, (SP) 
a4 o@AL .REG+14 


# o@AL .REG+14 
#1000 ,@ML .REG+14 






10s 
QML .REG+14 
H aM .REG+14 
#1, aM .REG+14 
118 


#1,R1 


SYSTEM ERROR DETECTOR 


mati 
’ o@AL .REG+14 


#1,R2 


* ,ERR2 


* ,ERRS 


* ,ERRO 


* ,ERRS 


* ,ERRS 


* ,ERRS 


SEQ 0137 


3503 


3507 


3509 


3511 


TOPS 
PA:< 


3513 


EEE 
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SYSERR SYSTEM ERROR DETECTOR 

172044 
020000 
040000 
040000 
137674 
000100 


172004 
000001 
00061 








sored coe coal) wed 






= 
° 


z 
oad 
S 


nS 


12 


172062 
172052 


172004 
000001 
171764 


171716 


137622 


171652 


171616 


13$: 


14$: 
15$: 


16$: 


as 


PEELED pt otk 





= Ba 
tomo wn 
ie my 


B2gn— SoZ 
4 o=~-< o- 





age 





@ 
a] 





am 
4 O~4 


SUSERETES | BESSREETEIIIE 






. eREG*+14 

$5 -@ML .REG+42 
* o@AL .REG+42 
#1 


#46000.am1 .REG+10 
a: DIS,#1 


+100- am. REG+14 
— 
-REG+42 


#1,4(SP) 
#1-RETRYING 
198 





31 ERROUT 

go 

4(SP) ,-(SP) 

arin. (SP) 

#3-(8P) 

SP.RO 

14 

#1,R3 

»REG+14 
(SP) 

senais -(SP) 

#2,-(SP) 

;° 

$e Sbo.an neon 


21$ 
arATIS =< 5P) 
#2,-(SP) 


SYSTEM ERROR DETECTOR 
14 


#26000,an. .REG+42 

,=(SP) 
wae ~t3p) 
#2.-(SP) 

















4 


* ,ERR7 


* ,ERR7 


* ,ERR6 


LUN,* 


7-Mar- 
7-Mar- 


SEQ 0138 


1988 19:93:46 


3515 


3517 


A eee ee 7 


3519 


556 
560 
3563 
3564 


EE | 
3 


3567 
3571 


3573 


TOPS 
PA:< 


3575 


a -— —~ 





A 
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SYSERR SYSTEM ERROR DET 


ECTOR SEQ 0139 





elie an ncer | ss7 


2 
Bgepl S,#1 


3 


tse O45e20 | Oaaree 0400008 171 $: 

















48 
1426 1 097080 aFAais =(SP) 
42650 01274 #2,-(SP) 
: - 1 1 RO D4 SP,* 
dae aS beSees #6,SP 
4866 04266 ae 000012 238: #1.12(SP) 7 *, ERRG 3581 
42674 1 000100 171460 #100, @ML .REG+14 : 
cass 3 13746 007556 $m B21. <(SP) ™ 
4871 042710 + 746 007060 #FMT15.=(SP) 
4872 042714 016746 000002 #2,~(SP) 
’ 01 SP,RO b SP ,* 
48764 042722 104414 14 
75 04 4 706 000006 #6,SP 
4876 04 171454 248: »REG+42 7 3587 
4878 04 736 gigreg 007570 4,-(SP) 
79 042742 012746 007060 MOV #FMT15.-(SP) 
4880 04 746 012746 000002 #2,-(SP) 
1 042752 010600 MO SP,RO : SP,* 
GR Beers GeSF05 ooo is 
042762 51 BR 
4885 042764 032766 000001 000002 25$: BIT #1,2(SP) : *,ERR2 3596 
4886 001010 BNE 26$ 
4887 04277 ROR R4 : ERRS 
042776 1 0 26$ 
04 0 2701 000001 BIT i Rt 3 *, ERRG 
1 a8e702 000001 BIT si : *,ERRS 
14 01 4 26$: MOV 4(SP) ,-(SP) : LUN,* 3599 
He on "9 oes JSR PC. SAYWHO 
3 O19 746 hae mov # 4 (8p) : —_ 
34 012746 000002 MOV #3 nS) 
SMLXG 1 ty la 19:93:62 TOPS 
4 : SYSTEM ERROR DETECTOR 7-Mar-1982 19:23:44 PA:< 
4901 8 MOV SP RO 3: SP,* 
490 3 BR” 28s 598 
4 27$: ROR R5 + ERR soe 
4 BLO 2 
4 JMP 4 
4 28$: MOV 24 (SP) ,-(SP) : LUN,* 3609 
4 JSR PC, SAY 
im ees : “ 
4911 7 MOV #3 (§P) 









1 
491 
91 7 
4 
( 
i 
49 1274 
49 1 
49 104414 
49 
& 7 
49 412 
4 4 746 
4928 12746 
4 0127 
49 01 
4931 104414 
49 
49 0 
493% 001412 
i Sie Sati 
49 127 
49 01 
re 104414 
494 


SSke 
Sr 





4 

sac8 SUSE 008777 
4968 % Ol rie 
i Se Sie 
4349 3300 104414 
498 ie 
4 1415 
4 

4 

4 5767 
i, Sass Wl 
4 12766 
4 127 

j oae%4 
4 198 
4 41 
i 
4 12746 
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29S: 
000002 


171226 
171172 30S: 
171136 


31$: 


32$: 


171042 


171000 34$: 


SP.RO 

14 . 

#1. 2sP) 

# ° ,@ML.REG+10 
WMLB2,-(SP) 
#FMT15, (SP) 
#2,-(SP) 

SP,RO 

14 


a6 SP 

i$ 0,@ML .REG+10 
#MLB3,~-(SP) 
#FMT15,-(SP) 
#2.5(SP) 


14 
#3600, aA..REG*10 











WMLB4 .-(SP) 
gE MT 3 .~(SP) 
-RO 





4 
#17 <SP) 


eREG+10 


WMLBS .-(SP) 
#E AT 3 .~(SP) 
»RO 


14, 





#46500 
#h, e@ML .REG+10 
34$ 


SYSTEM ERROR DETECTOR 
gccDIS 
-(SP) 
PPRTS -(SP) 
#2,-(SP) 
oR 
4 
#6000,am. .REG+10 
=( 


#LB7,-(SP) 
#FMT15§,-(SP) 
#2,-(SP) 


SP,* 


; SP,* 


SP ,* 


* ,ERRS 


SP,* 


5 


?-Mar-1 
7-Mar-1 


982 
982 


19 
19 


SEQ 0140 


3632 
3636 


3638 


TOPS 
PA:< 


: 
’ 
: 


CZMLBBO PERFORMANCE EXE 
SYSERR SYSTEM ERROR DET 


BReS3a 


fhe eh ee ee ee el 
w 





—OOooo 
RoNNNSRRRS 
sees 


RSKe 
Jes 


eeees 
NNNO 
DRO 


gsceseenss 
SY  SaSSNNS383 


i) 

ond ed ae aed w 
NNN 
BRN 


aod 
NE 
aot 
& 


sy 
™ 
moh 
™N™ 


Bans 


eh 
4 
- 
= 


CISER 
CTOR 


1 
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170744 


170710 
170732 


170634 


170606 


170552 


170516 


35$: 


36$: 


37$: 


38$: 


sMLX4 


40$: 





SP RO 
14 


#6.SP 
#1600 aML.REG+10 
#MLBB.-(SP) 
#FMT15,=(SP) 
#2,-(SP) 

SP,RO 


#6,SP 
#450 AML .REG+10 
#40000, aML .REG+42 


#MLB9,-(SP) 
#FMT15,-(SP) 
#2,-(SP) 
SP,RO 


#36000, am..REG 


#4LB10,-(SP) 
#FMT15.-(SP) 
#2,~(SP) 
SP,RO 


14 

#6,SP 

#1.R1 

#20000 QML .REG+14 
e Bo + 

39$ 

#4LB11,-(SP) 

#FMT15.-(SP) 

= (SP) 


14° 
#6,SP 


SYSTEM ERROR DETECTOR 
4 o@ML .REG+14 


#MLB12.~( SP) 
#FMT15.~(SP) 
#2,-(SP) 
SP,RO 


14 
#6 
#1000.am..neG+14 


#9LB13,-(SP) 
#FMT15,-(SP) 
#2,-(SP) 
SP_RO 


14 







: SP,* 


; SP,* 


: SP,* 


— . 


SEQ 0141 


27-Mar-1982 19:24:42 
27-Mar-1982 19:23:44 


3652 


OPS 
PA:< 





M11 | 
PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 13/26 | 













CZMLBBO I 
SYSERR SYSTEM ERROR DETECTOR SEQ 0142 
ADD #6,SP 
2 Ge 1 44 inti 170462 41$: 178 #2 SMI .REGH14 : 3662 
$0 12746 007514 MOV #MLB14,-(SP) 
127 7 MOV #FMT15. (SP) 
5 127 2 MOV #2,-(SP) 
30 71 1 MOV SP RO : SP,* 
20 063706 ISD SP 
30 5 183777 ist 170426 42$: g1TB Ae caPL.REGST4 ; 3664 
$0 1 Fag 207589 MOV #4LB15,-(SP) 
742 012746 007060 MOV #FMT15.=(SP) 
50 7 12746 2 MOV #2,-(SP) 
5040 52 01 MOV SP,RO : SP,* 
2042 943756 bestee 000006 i | 
S048 04 $68 000001 170372 43$: ##BITB #1.aML.REG+14 : 3666 
5044 1412 BEQ 44$ 
5045 oi 746 007524 MOV 16.~(SP 
5046 12746 MOV #FMT15.-(SP) 
504 012746 2,-(SP) 
5048 044 01 SP.RO : SP,* 
2050 a4bis Onstoe #6.SP 
5051 1 001439 000001 443: “" *R2 3 *, ERRS 3670 
2088 4 052777 020000 170330 ‘ -@ML .REG+14 : 3676 
pee 044034 oi 746 007530 #9LB17,-(SP) 
3086 0 012746 Migerty #FMT15.=(SP) 
505 012746 000002 = (SP) 
5058 0 010600 x : SP,* 
5059 044052 104414 14 
ee 1 706 tit Ds 6 170274 45$: aye 5c Om. REG+14 : 3676 
2062 066 001412 " - BEQ 4S ° 
2MLX4 27-Mar-1982 19:24:42 TOPS 
s ; SYSTEM ERROR DETECTOR 27-Mar-1982 19:23:44 PA:< 
044070 012746 007534 #MLB18 ,-(SP) 
74 Ot 746 007060 wuele -(SP) 
1 127 2 #2,-(SP) 
9 1 01 RO 3: SP,* 
70 1 104414 14 ss 
iz 133777 iat 170240 46$: #10, aM .REG#14 ; 3678 
7% 0441 oi 746 007542 #4LB19,-(SP) 
75 ie 12746 007060 sentis -(SP) 
re Bitten Sipcsg 000 Bas sp 
lk: 169 04414 A ies 
1 706 #6. SP 
13 ies 1 000004 473: 1 1,4(SP) 3 *, ERRG 3690 
1 2 000004 #4,R0 ; 3692 





N_11 
MACRO M1113 29-MAR-82 13:41 PAGE 31-7 





CZMLBBO PERF ORMAN 
SYSERR SYSTEM E 











SEQ 0143 
16 BR 54$ 
5 ¢ Ges ge 48$: ore a9s : ERR7 3694 
5 17 000005 MOV #3 RO ; 3696 
5 200 000001 ooo002 496: Bir = #1, 2) 3 *,ERR2 3698 
5090 16 000002 MOV ie RO : 7 
5091 1 BR 548 _— 
5092 1¢ 50S: ROR RT 3 ERRG 3702 
soos becaee fygcge 000008 in 3 5704 
5096 044 zi 716 000001 51$: #1, (SP)  *,ERR3 3706 
3098 St R 3: ERRS 
> 7 52$ 
5100 0 2767 000001 136010 #1, ERROUT : 3712 
5103 a3e76r 000001 170060 #1 RETRYING 
510 60 001012 52 
5104 044262 012746 010140 #PHR11,=(SP) 
fe SSeS Ste eRe i 
si Siesta io ss 
5109 Bes 2 000006 SP | 
5110 r¢ B95 508 000001 52$: ABT : 3706 
1 SSE Bue sa 7 - 
5113 044316 005000 538: RO : 3427 
5114 044320 062706 000006 548: #6,SP 
3115 044324 000207 PC’ 
ans 3; Routine Size: 647 words 
5118 SMLX4 27-Mar-1982 19:26:4 TOPS 
3119 : SYSTEM ERROR DETECTOR 27-Mar-1982 19:23: PA:< 
Hi s Maximum stack depth per invocation: 15 words 
51 





es 


Vn 
2 


wv 


od cond od 


i fa te ta St 
o2s 
ed w 


WIR 


_ 
™ 


- 


S 
Ww 


{SSHRE 


PAMAAAMAMA AAAI 


ed ed ced ed ed ed ed eed eed ed eed ceed aed ene eee 


oa 


ARUN ISSHOUSEAPERISSSVFALUN 


bh bet ed beth esl eh teh ech Dee eee bed eAD Ab Abb Abb Ab Ab Ab Ab ah vahdlealesl al eal wa) 
Savio 


ed ed ed ed td eed eed eed ed eed eed eed eed eed ed ed eed eed ee ced eee ee ee em 


Ble 
CISER MACRO M1115 29-MAR-82 13:41 PAGE 132 
CTOR SEQ 0144 


7-Mar-1982 19:24:4 TOPS-20 Bliss-1 (212) 
DATA COMPARISON ROUTINE $hohar=1983 19:93:44 PA: <NEAL SmLKe BL IS. 3) 
Zobel "DATA COMPARISON ROUTINE‘ 
) rout ee (W_POINTER, R_POINTER, COUNT) ’ . 


'o¢ 
i ROUTINE: DOUBLE _CHECK(W_POINTER,R_POINTER, COUNT) 
i PURPOSE: 


TO DOUBLE CHECK THE ECC DETECTION LOGIC AFTER A 
ARE COMPARED. AND NO ERRORS SHOGED BE Coren USUEFERS 
NORMAL CIRCUMSTANCES. 


W_POINTER = POINTER TO THE WRITE BUFFER 
R POINTER = POINTER TO THE READ BUFFER 
COUNT = THE NUMBER OF WORDS TO COMPARE 










er “ESULTS: VALUE RETURNED IS EITHER: 
4 = NO ERRORS WERE FOUND 
N > 0 = ADDRESS IN WRITE BUFFER WHERE ERROR WAS FOUND 


mA SERRA RARE 


OFFSET = 0; 
VALUE = 0: 
LOOP : 


begin ‘es 2 
incr I from 1 to .COUNT do 


n 
= .(.W POINTER + .OFFSET); 
BAD = .(.R_POINTER + .OFFSET); 


if .GOOD eql .BAD 
then ie 


OFFSET = .OFFSET + 2 
else 

ws fe 'e 4 8 

VALUE = (.W POINTER + .OFFSET): ‘ADDRESS OF GOOD 

leave LOOP; 


's 3 


‘2 6 & 
end; | 'e 3 « 
end; in 20 





44-40-4444 4-H 


MMVI 
8 od od od od od eh ed OOOO 
SD OONAULWN—OSONE 
ond ened nd eed wa 
SENSRLSA HASSE S EE SRE MS 


+ Ww 
Fun 


3531 





ascent 
™ 


SeSe2 
oe 


seietissss 


S82 
S28 





DATA COMPARISON ROUTINE 
return .VALUE; 
end; 


141002 


000024 


000022 


000002 


000020 


2 
R MACRO M1113 29-MAR-82 13:41 PAGE 35 


7-Mar-1982 19:26:4 Liss-16 V2(212) 
Sp mar-1983 19:34:44 PResne Lesa se oy ¥757133, 
{gs MER 0 OR THE ADDRESS OF GOOD DATA 


»SBTTL DOUBLE.CHECK DATA COMPARISON ROUTINE 
DOUBLE . CHECK: 
JSR <(sP) : 


: OFFSET 
; VALUE 


Re 
R2 ; 

1$: BS .RG : OFFSET,* 
24 (SP) RG : W.POINTER,* 
(R4), (SP) 3 *, GOOD 
R3 Rd : OFFSET,* 
22(SP) RS : R.POINTER,* 
(R5) RO ; * BAD 
— cs * ,BAD 
#2.R3 : *, OFFSET 

2$: R4.R1 = *, VALUE 

3$: R : I 
_— : 1, COUNT 

4$: R1 RO e VALUE ,* 
(SP) , 





3: Routine Size: words 
; Maximun stack Pit per invocation: 





7 words 


SEQ 0145 


a ——-— + 


—-~<— =- 





CZMLBBO PERFORMANCE EXER 
DOUBLE .CHECK DATA COMPAR 






SSSRIERRY |! 


bas: 


eS SS at 
rE 
RB 
3 
Nr 


D1 
ISER MACRO M1115 29-MAR-82 13:41 PAGE Psu 
ROUT INE 


C 
ISON 












$i fer- 


1 19:26:4 am Liss-16 v2(212) 
a alt + 19:59:34 Esmxs ou yes" 


COMMAND INITIATION AND TERMINATION 
Zsbttl ‘COMMAND INITIATION AND TERMINATION’ 


routine WAITER : novalue = 
begin 





i¢ 





i THIS ROUTINE DOES NOTHING IT 1S CAL 
_WASTE TIME WHILE WAITING to’ bE BEGIN OR END 
. BREAK: 

return: 

end; 


-SB8TTL WAITER COMMAND INITIATION AND —_—e 
WAITER: ae $¢ 


; Routine Size: 2 words 
: Maximum stack depth per invocation: 0 words 


ALE>MLX4.BLI.5 ¢ 4) 


SEQ 0146 


ST A Tt A et et cents staat 


ee 


2 
CZMLBBO PERFORMANCE EX mene SER MACRO M1113 29-MAR-82 13:41 PAGE is 
WAITER COMMAND INITIATION AND TERMINATION SEQ 0147 


SrRer-1985 19:98:66 PareneALesmn ee fu 1S" 135) 





3MLXG 

eP COMMAND INITIATION AND TERMINATION 

routine START IT (COMMAND, LUN, WROCNT, BUFFER, SECTOR) = 
n 





* 
+ 


ROUT INE : START _1T (COMMAND .LUN,WROCNT ,BUFFER, SECTOR) 


PURPOSE : TO INITIATE A TRANSFER TO OR F THE ye 
TO WAIT FOR THE TRANSFER TO C ETE, AND FO CALL 
THE “SYSERR® ROUTINE TO LOOK FOR RESULTING E 

OF 


ARGUMENTS: (1) COMMAND - M3 FUNCTION CODE FOR THE T TRANSFER 
Tit THIS C wis ye _ TO THE MLCS1 
REGIS ER TO START « SINCE IT 
ALSO CONTAINS THE 608 





re 
































52t 1 : (2) LUN = LOGICAL UNIT NUMBER 
5286 : aC (3) WRDCNT = NUMBER OF 16-BIT WORDS TO TRANSFER 
5288 802 (4) BUFFER - THE ADDRESS IN MAIN MEMORY OF THE SELECTED 
5289 58 WRITE OR READ BUFFER 
$291 ; $8( (5) SECTOR THE TRANSFER'S STARTING ADDRESS IN THE ML11 
IS BC RESULTS: VALUES RETURNED ARE IDENTICAL TO THOSE DEFINED ABOVE IN 
96 BOE THE "SYSERR’ ROUTINE. 
3593 ; ait Local 
yf; -j3 oca 
5298 ;: 31 TEMP, 
5099 : 13 READY_BIT, 
5302 : 316 Label 
3 03 : 817 LOOP; 
05 390 
ie : 382( i WAIT FOR DRIVE READY: 
08 ; 382 UNIT = .DRI 'SELECT THE UNIT 
; "3 ; Be READY_BIT = 
" : 38¢ until enor 8 neq 0 do ‘WAIT FOR DRIVE READY 
2 ig : WAITER (); 
1 3 READY_BIT'= .MLCS1 and 8117; 
1g ti 
18 i INITIALIZE BEFORE EACH TRANSFER: 
D: CLR = 1; ‘CONTROLLER CLEAR 





EE EEE EET ee 
eee Se 


MACRO M1113 29-MAR-82 13:41 PAGE 136° 
TERMINATION 3 SEQ 0148 





CZ 
WAIT 












53: § ; COMMAND INITIATION AND TERMINATION Spomara1985 19:34:4e | Bae See te BUssEzTs v2c212) 
3 25 ; iDELAY £08 FOR AG LEAR TO COMPLETE 
5 SAE ne a SE 
A | SET UP THE REQUIRED ENABLE/DISABLE BITS: 
3¢ DCK_EN = 1; !ALLOW REPORTING OF DATA CHECK ERRORS 
2 34 if .REFRESH then REF_MAR = 1: 'TURN ON REFRESH MARGINING IF OPERATOR SELECTED 1T 
5 if .ECCDIS then ECC_DIS = 1: 'TURN OFF ECC IF OPERATOR SELECTED 11 


: SEND REQUIRED INFORMATION TO DEVICE REGISTERS: 


vty 


T. 









myc = BUFFERS 1BUS ADDRESS” REGISTER (ADDRESS _IN RAIN MEMORY) 
= a 
ALDA = ~SECTOR: {DESIRED SECTOR ADDRESS REGISTER (ADDRESS IN ML11) 
i GO: 


* A) 


PUPA AAAI a 





t.: 
t.: 
7: 
7. 
t: 
¢: 
7. 
t 
7: 
tr. 
z. 
t: 
7 
z. 
z. 
7: 
¢. 
¢: 
z: 
7. 
Rs 
7. 
+: 


+ BIT6; ‘SET THE INTERRUPT ENABLE BIT WHILE LOADING THE 
'CONTROL AND STATUS REGISTER WITH THE COMMAND 





C 
. TEMP: 
: WAIT FOR DRIVE TO FINISH: 


LOOP : P 
n 
RERDY_BIT = 0; 


until = 1 -AM_DONE do 


wv 
UNOS 


SSSA MUMS Doe 






TER (); 
READY_BIT = .MLCS1 and BIT7:; 
sf CC.READY BIT neq 0) and (.1_AM_DONE eql INACTIVE)) 


begin 
i ( not .RETRYING) 


begin, (LUN); 


if .COMMAND eql WR_CMD then RIN = WRD16; 
if .COMMAND eql RD_CMD then RTN = WRDI7; 
if .COMMAND eql WC_CMD then RIN = PHR1; 


i ahd atl ah add ab and ath ahd ahd etd ethene ane 
4 x i a os 


Se Gas Ccy Cos Goce Gee Cay Chee Pes cs Ce re Pe Foe EAA 





Sasa Sess 


SS 


C 














EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE $3} 
WAITER COMUND INI INITIATION AND TERMINATION 


COMMAND INITIATION AND TERMINATION 
PRINTS ame - WRDCNT 


iWMERE 


PRIN 


: 


YON 


oud 


vr 
5 






leave ian, 
end; 


end; 


end; 
return SYSERR (.LUN); 
end; 


aL 


SN 
andy 
o 


se & 
=O 


167672 


167634 


1$: 


om) oo 
anaesee 





— : 


wORD (775) AT SECTOR £73 


2H) Ise E THER ‘ORITE®. "READ 
INTERRUPT Dip NOT OCCUR, BUT THE TRANSFER IS COMPLETE 


7-Mar=19 
soer=13 


_ ee 








19:88:66 PATeNEALE 


OR ‘WRITE CHECK’ 





>ALX4 .BLI.5 


Liss-16 Ve (21g) 


(33) 


SEQ 0149 


—— =_ - 


‘PASS ALONG THE ERROR VALUES THAT ‘SYSERR’ OBTAINED. 


LSDLY 


START.IT COMMAND INITIATION AND TERMINATION 


R1,SSAVE4 

=(§P) 
24(SP) ,R4 
R4 RI 


fe 


AZ am -AeGo10 


Rg-OPh .REGS 


FOR 
: Sih .RE6+10 


Y,R2 







(R1) ,R2 









” 
R 
& 


; LUN,* 


READY .B17 


* ,READY .BIT 
* READY .BIT 


* ,SSTMP2 
« ,SSTMP1 


$1) 


ee. eee 





START.1T COMMAND 





FE 
258 


seblanren Buatnurn eee ah ate eee 
SET SESLIESSEEECoOmenSEEy 
BarRee 





see 
FEPEEER 


rr 


a 
fe 
Yee 
is 
77% 
1 
1 

4 


Mi 





CZMLBBO PERFORMANCE EXE 
INITIA 


47 








RCISER 
TION AND 


sen 


135326 


MACRO M1113 29-MAR-82 13:41 PAGE tsb 


TERMINATION 


167570 


167530 
167532 
185204 
167514 
135370 


167476 
167446 


1674 
1674 


167362 


167330 


sMLX4 


oS 3 ~ 


11$: 


12$: 


13$: 


14$: 


Qn 
~2sess 


 B3Ooo+~ooz— 
CERES Pad is tr | 





LL Ee 


COMMAND INITIATION AND TERMINATION 


_— 


108 
USOLY Ra 


(SP) 
R 





6(R 
#177770,R1 
47, QML REG+1 
R1,aML.REG+1 
#46, @ML .REG+26 
“ REFRESH 
r2b0 @ML .REG+24 
‘ ECCDIS 
& -REG+246 
2 USPS a sheoo2 
SP) ,@ML .REG+4 
Bip) at es 
6(SP)R 


ai 
i 


’ 1 .AAM.DONE 

ang 
°R 

ea 

#7 RETRYING 

R4,-(SP) 

SA 

#61 

| 

R 18. 

#URD17,R1 





















E .ADDR(R1) ,R2 
R1 


3; *,SSTMP2 
; &, SSTMP1 


SSTMP2 





$11 
SSTMP2 





WRDCNT ,* 


BUFFER ,* 
SECTOR,* 


COMMAND , * 





*, TEMP 
EMP 


«7 





Seeeeneiene 


TEMP ,* 
READY .BIT 


* ,READY .BIT 
* READY .BIT 


® RIN 


* RIN 


$ 


SEQ 0150 
7:24:42 TOPS 
1:23:44 PA:< 


Sooo 
SS 


| 





SEQ 0151 








28-2 OC, 
ES e; 
Pe = ee 
> : 
‘ . 
é 
: 
= ti, 2 
- acini 5S os 
g Egsevseve seve Mas 
o se sRecareceaeesy a 





S¥SSSEESSSSESSSSSESES 


Rout tne Size: 169 words 


>: Maximum stack depth per invocation: 





15$ 
168: 
17$: 


R MACRO M1113 29-MAR~82 13:41 PAGE 139° 


AND TERMINATION 


tif SE 








SeSeseeD ee Ramen ss ssoK mene 


DAMAIAMAAAUALNIAIN 








EEO ers aes senate 


J 
SaERCISER MACRO M1113 29-MAR-82 13:41 PAGE 140° 


=a 
g 
of 
2 


E 
OMMAND INI 


Yn 










ART.IT IATION AND TERMINATION SEQ 0152 
524 :MLX4 7-Mar-1982 19:26:4 TOPS-20 Bliss-16 V2(212) 

5: COUNTING BYTES TRANSFERED oF mer 138s 19:393¢ PA: <NEALEDMLX4.BLI-S (26) 

2 7; j tsbetl "COUNTING BYTES TRANSFERED’ 

22 : rout eel (WORD_COUNT) : novalue = 

33 : 5 WR_COUNT = .WR_COUNT + (.WORD_COUNT#*2); 

5532 : 90° if .WR_COUNT geq 20000 

55335 : then 

32 | 0 BROT ROUSANDS = WR_THOUSANDS + 20; 

33 : 1 WR-COUNT = .WR COURT = 20000; ° 

5538 : § if .WR_THOUSANDS geq 1000 

5539 : 4 then 

5540 ; 5 begin 

5541 : 916 WR_THOUSANDS = .WR_THOUSANDS = 1000: 

234¢ ; 17 WR-MILLIONS = .WR_MILLIONS + 1; 

5544 : 319 if .WRMILLIONS Lss 0 then WR_MILLIONS = 0; 

2208 : 921 end; 

af aa 

5549 : 924 ; 

5550 : 925 return: 

223} : 926 : 

55 -SBTTL UP.WR.COUNT COUNTING BYTES TRANSFERED 

5560 045146 UP.WR. COUNT : 

3 1 314 016600 000002 mov 2(SP) RO : WORD. COUNT, * 3905 

eee$ 045154 167134 ADD WR. COUNT RO 

2364 5160 167130 MOV WR COUNT 

3366 31 7040 or ; 4 : WR.COUNT,* 3907 
567 0451 24 167116 ADD #24,WR. THOUSANDS : 10 
568 045 047040 167106 SUB 447040, WR. COUNT : 3311 
369 3 06 167104 001750 chp WR. THOUSANDS .#1750 : 3 
571 045214 001750 167072 Sua #1750,WR. THOUSANDS : 4, 
372 5224 7 167070 INC WR. MILLIONS : 17 

5 BPL s a 

74 045 167062 CLR WR.MILLIONS 
6, 5 1$: RTS PC ; 3903 
577 : a madd PB An invocation: 0 words 

38 *MLX4 i ; 37-Mar-1982 19:34:42 TOPS 
a : COUNTING BYTES TRANSFERED 7-Mar-1 19:23:44 PA:< 


Se SS Ste enestpesssenssessstesnssnssnsssesenumsutsnsbsneithesemnensere-sceses-c.. 
St NS th me - 


K 12 
CZMLBBO PERFORMANCE EXERCISER neck M1113 29-MAR-82 13:41 PAGE 141 


UP.WR.COUNT COUNTING BYTES TRANSFER 


By oon 


SEQ 0153 


TOPS=20 Bliss-16 V2(212) 
PA: <NEALE>MLX4.8L1.5 (27) | 


tous pla 13733°4 
COUNTING BYTES TRANSFERED 7-Mar-1982 19:23:4 
7 rout ine UP_AD_COUNT (WORD_COUNT) : novalue = 
n 
RD COUNT = .RD_COUNT + (.WORD_COUNT*2); 
if .RD_COUNT 20000 
oa i 
RD_THOUSANDS = .RD_ THOUSANDS + 20; 
RD_COUNT = .RD_COUNT = 20000; 
if .RD_THOUSANDS geq 1000 
then 
begin 
RD_THOUSANDS = .RD_THOUSANDS - 
RD_MILLIONS = .RD_MILLIONS + 1; 
if .RD_MILLIONS iss 0 then RD_MILLIONS = 0; 
end; 
end; 


return; 
950 end; 


=D 


1000; 


LLVSVeCcecrcrcvlovoo0o 


=“OOCONAW 


34, 


eSBTTL UP.RD.COUNT COUNTING BYTES TRANSFERED 
2(SP) ,RO 


UP.RD. COUNT: 


VIWN 


000002 3929 


ss 167050 
10067 167044 
047040 


s WORD.COUNT,* 


526 
525 


NAROO 


UA 


3; RD.COUNT,* 3931 


FRRRRRRLRKEK 





VIA Aa 
cnt omd 
net ad 
Rte 
ANOS 


— 


aeh 


047040 


167020 


001750 
167004 


166776 


ras 
S538 
167006 


aoGaeRgvergaErs 


1$: 
3; Routine Size: 


; Maximum stack depth p 





is 








2RD. COUNT 


« THOUSANDS .#1750 


#1750,RD. THOUSANDS 
RD .MILLIONS 


RD .MILLIONS 
PC 


29 


word 


§ 
er invocation: 0 words 





3934 
3935 
3937 


3 


3927 


SR 


SRR Oo 
NOE 





Ww 
a 
ee 
z 
~~ 
~~ 


ee 
ele 


SSS SSeS 


ee 


eet 
aot 


SSaNSS EERE RES SSSE SESS 


uw 
aan 
vx 


@x< 


COUNTING BYTES TRANSFERED 
routine UP_WC_COUNT (WORD_COUNT) : novalue = 
n 
WC_COUNT = .WC_COUNT + (.WORD_COUNT®*2); 


Pod gsr 


wi 
Las 


ikea! 
. 


RERLRLLSLSLLS 
ge 


Sp -mar-1989 19:98:64 


if .WC_COUNT geq 20000 
then 
DEO TROUSANDS = .WC_THOUSANDS + 20; 
WC-COUNT = .WC_COUNT - 20000; 
if .WC_THOUSANDS geq 1000 
then 
WC_THOUSANDS = .WC_THOUSANDS =- 1000; 
WC_MILLIONS = .WC_MILLIONS + 1; 
if .WC_MILLIONS Lss 0 then WC_MILLIONS = 0; 





end; 
end; 
return; 
end; , 
~SBTTL UP.WC.COUNT COUNTING BYTES TRANSFERED 
UP. WC. COUNT: 
000002 MOV 2(SP) ,RO : WORD. COUNT, * 
166764 
166760 
047040 
O47040 1eRrse Ue. COUNT 
166734 001750 WC. THOUSANDS ,#1750 : 
001750 166722 #1750,WC . THOUSANDS : 
166720 Inc WC MILLIONS : 
166712 CLR WC MILLIONS ‘ 
1$: RTS PC ; 


: Routine Size: 29 words 
: Maximum stack depth per invocation: 0 words 


a 


L 12 
ERCISER MACRO M1115 29-MAR-82 13:41 PAGE 142 
YTES TRANSFERED 


re renee 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.8L1.5 (28) 


¢ WC.COUNT,* 


CZMLBBO PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE Tas. 

UPC. COUNT COUNTING BYTES TRANSFERED 
717 ‘tn 27-Mar-1982 19:24:64 
yar ML11 TRANSFER COMMANDS 3pomer=1985 19:33:4 


975 %sbttl °ML11 TRANSFER COMMANDS’ 
97 reeneae reas (LUN, WRDCNT, BUFFER, SECTOR) = 
gin 


97 
O79 1+ 
381 ROUTINE : WRITE (LUN, WRDCNT ,BUFFER, SECTOR) 
$ PURPOSE : TO TRANSFER INFORMATION FROM MAIN MEMORY TO THE ML11 
AND TO DECIDE ON THE ADVISABILITY OF A RETRY. 





TOPS=20 Bliss-16 Ve (eg) 
PA: <NEALE>MLX4.BL1.5 


‘ 

' 

' 

' 

' 

i 
3989 ARGUMENTS: SEE ‘START_IT' ROUTINE ABOVE FOR DETAILS 
3987 i RESULTS: UPON TERMINATION OF THE TRANSFER, ERROR DETECTION OCCURS 

i AND THE CONTENTS OF ‘VALUE’ BEC ANT IN TERMS OF 
3989 i WHETHER THE TRANSFER WAS COMPLETELY SUCCESSFUL OR WHETHER A 
990 RETRY SHOULD OR SHOULD NOT BE PERMITTED. 
399 i THE VALUES RETURNED FOR THIS SUBROUTINE ARE THE SAME AS 
993} FOR THE SYSERR ROUTINE ABOVE. 
3994 i-- 
3995 
3996 local 
3997 VALUE, 
3998 COMMAND: 
3999 
4000 COMMAND = 
4001 VALUE = START IT IT ¢. COMMAND, .LUN, .WRDCNT, .BUFFER, .SECTOR): 
4005 if ( not .RETRYING) then UP_WR_COUNT (.WRDCNT); 
$005 if .VALUE eql 0 then return 0: 'NO ERRORS AT ALL 
4007 if (C.ERROUT) and ( not .RETRYING)) then PRINTB (FMT6, .WRDCNT, WRD16, WRD15, .SECTOR): 
4009 !*BEGAN YYYY WORD WRITE AT SECTOR 222277' 
4010 return - VALUE ; 
4011 end; 

-SBTTL WRITE ML11 TRANSFER COMMANDS 
004167 137632 WRITE: JSR R1 SSAVEC : 
2700 000061 MOV : con no 
6646 000020 MOV sey =«sP) ZL : 
6601 000030 MOV a (SP) -R : URDENT..* 
0146 MOV =(S RT 
16646 000020 MOV Boise -(SP) : BUFFER,* 


SEQ 0155 


oe mew ee eee 


3976 
4000 
4001 


CZ7MLBB0 
WRITE ML 


333 


.: 





Seige 
Sake 


EREERE 
seeeeeeeesee 
aeeEs 


MMA 
SERS on 


MMAMIMMM AVIA 


SSARAS 
PELE 


ww 


EREERSR 
NISL E ES 


ViIW 


MVM 


REPRE PEPER 


Essseseeses 
RLRRELLELE 
SEES 


3 
UMA 


e 
o 


=a 
= 


=a 
Sota 
www 


ood cnet mt cod end aed nd 


Sex 


sssoRe 


ESSceaNEsS 


RFORMANCE EXERCISER 
TRANSFER COMMANDS 


176740 


000001 
177442 
000012 


000001 
00000 
& 

725 


3 
suis 


00001 
00001 


1 
22 
6 
6 
76 


4 
2 


N 
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166644 


134532 
166602 


1$: 


2$: 


3$: 
4S: 


3; Routine Size: 59 word 
; Maximum stack depth pe 


ML11 TRANSFER COMMANDS 


20(SP),=(SP) 
PC,START.IT 


oR 
#1 ,RETRYING 


#1, ERROUT 
#1,RETRYING 


33(SP) ,=(SP) 
#WRD15 ,~(SP) 


. | 
r invocation: 14 words — 


SECTOR,* 
* , VALUE 


; VALUE 


; SECTOR,* 


SP,* 


: VALUE,* 





5 


7-Mar-19 
7-Mar-1 


Bi 


SEQ 0156 


42 TOPS 
4 PA:< 


4003 


4005 


4007 


3976 
3977 


3976 





8 is 
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R COMMANDS 
















TRANSFE SEQ 0157 

316 ;MLX4 “Mar-1982 19:246:4 TOPS=20 Bliss-16 V2(212) 

817 : ML11 TRANSFER COMMANDS oe si 19:54:44 PA: <NEALE>MLX4.BL1.5 (30) 

19 : 4012 routine read (LUN, WRDCNT, BUFFER, SECTOR) = 

B20 : 401 begin 

Bi IE 

898 : 4016 . ROUTINE: READ(LUN, WRDCNT ,BUFFER, SECTOR) 

B25 : 4018 |! PURPOSE: TO TRANSFER INFORMATION FROM THE ML11 TO MAIN MEMORY 

B56 4019 . USING A "READ’ COMMAND. 

Bo : 4 ARGUMENTS: SEE ‘START_IT" ROUTINE ABOVE FOR DETAILS 

5830 : 4 i RESULTS: UPON TERMINATION OF THE TRANSFER, ERROR DETECTION OCCURS 

831 ; 4 i AND THE CONTENTS OF ‘VALUE’ BECOMES IMPORTANT IN TERMS OF 

B32 : 4 i WHETHER THE TRANSFER WAS COMPLETELY SUCCESSFUL OR WHETHER A 

583: : 4 ! RETRY SHOULD OR SHOULD NOT BE PERMITTED. 

5835 ; 4028 } THE VALUES RETURNED FOR THIS SUBROUTINE ARE THE SAME AS : 
Ky : 4 FOR THE SYSERR ROUTINE ABOVE. 

838 : 4 és 

B39 : local 

B40 : VALUE, 
5841 ; COMMAND : 
:: g : COMMAND = RD CMD: 

B44 ; VALUE = START_IT (.COMMAND, .LUN, .WRDCNT, .BUFFER, .SECTOR): 
3846 : if ( not .RETRYING) then UP_RD_COUNT (.WRDCNT); 

5848 ; if .VALUE eql 0 then return 0; !NO ERRORS AT ALL 

3890 : if ((.ERROUT) and ( not .RETRYING)) then PRINTS (FMT6, .WRDCNT, WRD17, WRDIS, .SECTOR): 

85¢ : 4045 !*BEGAN YYYY WORD READ AT SECTOR 222222° 

1853 ; 4 return .VALUE; 
2534 ; end; 

5 “— i -onmes me 2 TL TRANSFER COMMANDS _ 
5864 04561 12 000071 "(MOV 1037 
B66 16646 000¢ ROV SP) ” 

5 8¢ 01 tee mov : 

BAC 16646 MOV SP) ; BUFFER,* 

587 Oi ek6 360030 MOV SP) : SECTOR,* 





: 


ay 


Non 2 


RERERRLRLLLLLLLLLLE 


RRRRRRKK 


RR 


SESS a aucausaesseneeer ees eee 


3 


www 
= 
NN 


< 
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TRANSFER COMMANDS SEQ 0158 | 
sMLX4 7-Mar-1 19:264:4 T 
; ML11 TRANSFER COMMANDS oa at 19.38.44 Pe pe 
004767 176552 PC,START.IT 
5 1 3 *,VALUE 
767 000001 166456 #1, RETRYING : 4039 
146 R1,-(SP) 
767 177346 PC UP. RD. COUNT 
57 (SP)+ 
fA 1$: : VALUE 4041 
3 A: 000012 #12,.SP_ 
20 76 000001 134344 2S: #1 .ERROUT ; 4043 
216 767 000001 166414 #1, RETRYING 
5 1 22 2(SP) ,-(SP) : SECTOR,* 
2 12746 46 #WRD15,=(SP) 
12746. 007264 #WRD17.-(SP) 
37% 10146 R1,-(SP) 
7 12746 006376 #FAT6,-(SP) 
5750 012746 000005 #5,~(SP) 
5754 01 oRO : SP,* 
3764 706 000012 3$: #12.SP : 4012 
5 01 R2, 3 VALUE, * 4013 
ante 005000 4$: R 4012 
5776 000207 . PC ‘ 





: Routine Size: 59 words 
; Maximum stack depth per invocation: 14 words 


3313 ‘one 
91 
5917 : 4 
918 ;: 4 
920 : 408) 
29 1; 4 3g 
59 ‘ ; ? 5 
ae 
59 : : Phi 
5927 : rit 
ye: he 
29 : 4061 
5931 : 4062 
5932 : 4 
398, : 4068 
5935 : 4066 
5936 ;: 4067 
5937 : 4068 
5938 : 4069 
5939 : 4070 
5940 : 4071 
5941 : 4072 
2045 4074 
2047 : 4075 
5945 : anes 
5 § 40 
5947 : 4078 
5948 : 4079 
5949 : 4080 
5950 : 4081 
3989 408 
es 004167 
Hee 
Fa eee 
me Sus Siete 
3568 04080 Olecde 


ML11 TRANSFER COMMANDS 
Ss (LUN, WRDCNT, BUFFER, SECTOR) = 
n 


+4 
ROUTINE : 


PURPOSE : 


ARGUMENTS : 
RESULTS: 






local 
V. 





THE VALUES RETURNED 
FOR THE SYSERR ROUTINE 
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READ ML11 TRANSFER COMMANDS 


CHECK (LUN, WRDCNT ,BUFFER SECTOR) 


TO TRANSFER INFORMAT 
USING A ‘WRITE CHECK 


SEE *START_IT* ROUTINE ABOVE FOR DETAILS 
UPON TERMINATION OF THE TRANSFER, ERROR DETECTION OCCURS 
AND THE CONTENTS OF ‘VALUE’ BECOME ERMS OF 
WHETHER THE TRANSFER WAS COMPLETELY SUCCESSFUL OR WHETHER A 
RETRY SHOULD OR SHOULD NOT BE PERMITTED. 


FOR THIS SUBROUTINE ARE THE SAME AS 
ABOVE. 





| Su 


19:26:4 
7-Mar-1 19:5$:6 


JON FROM THE ML11 TO MAIN MEMORY 


IMPORTANT IN T 





COMMAND = WC_CMD; 

VALUE = START_IT (.COMMAND, .LUN, .WRDCNT, .BUFFER, .SECTOR): 
if ( not .RETRYING) then UP_WC_COUNT (.WRDCNT): 

if .VALUE eql 0 then return 0; 
if ((.ERROUT) and ( not .RETRYING)) then PRINTB (FMT6, .WRDCNT, PHR1, WRD15, - SECTOR); 
!*BEGAN YYYY WORD WRITE CHECK AT SECTOR 222227' 


return .VALUE; 
end; 
137256 
000051 


900020 


0000 
00002 


CHECK: 





TTL CHE 






st TRANSFER COMMANDS 
VE2 


‘NO ERRORS AT ALL 








Liss-16 V2(212) 


TOPS=-20 
PA: <NEALE>MLX4.8L1.5 (31) 





SEQ 0159 


4048 
40 


— ee — 





PE 


CZMLBBO PERFORMANCE EXERCISER 
CHECK ML11 T R COMMANDS 





MACRO M1113 29-MAR-82 13:41 PAGE {48° | 
SEQ 0160 | 



























SMLXG 7-Mar-1 19:26:42 TOPS 
: ML11 TRANSFER COMMANDS soar 19:38.44 PA:< 
9 5034 004767 176364 JSR »START.IT 
504( MOV noha 3 *, VALUE 
: 000001 166270 IT #1 ,RETRYING ; 4075 
a2 Oetse Gils mov RIASPD 
$060 Of sr (she 
5062 OC 1$: ist : VALUE 4077 
46066  0¢ 000012 ADD = #2.SP 
4607 ik 000001 134156 28: BIT #1, ERROUT : 4079 
b1¢ 000001 166226 BIT #1, RETRYING 
1 ¢ MOV (SP) .~ (SP) : SECTOR,* 
1 MOV #URD15,-(SP) 
51 MOV #PHR1,-(SP) 
395% 1 MOV Sp) 
S598 O48 nov 
1 MOV 
51 MOV ; SP,* 
5936 i oe 
aIs> 38: ADD : 4048 
2998 5156 01 MOV > VALUE,* 4049 
4 4 4$ CR 4048 
ce 5164 b00207 : Ris ° 
: Routine Size: 59 words 
6004 >: Maximum stack depth per invocation: 14 words 





Nn & 





OO En, 
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OMMANDS 


si fer- 
ML11 TRANSFER COMMANDS 7-Mar- 


routine CHOOSE = 
begin 


as 
e 


ROUT INE : CHOOSE 


PURPOSE : i. CIDE WHETHER T 
HE *READ* WiLL ice 






Fae te 


SET, 


RESULTS: THE VALUE RETURNED FOR THIS ROU 
THE CHOSEN COMMAND (EITHER "READ 


WIN w 






137176 
000001 


137256 
045612 


046000 po 


; Routine Size: 15 words 
; Maximum stack depth per invocation: 


MAL11 TRANSFER COMMANDS 


“WRITE CHECK’ OR_A ‘READ’. 
Pe ley sea nos He 





Sn 


SEQ 0161 


TOPS-20 Bliss-16 Hog SA 


PA: <NEALE>MLX4 .BLI 







.* IS THE ADDRESS OF 
READ! OR *CHECK'). 


rh local 
rh. VALUE ; 
rh RN (); 
a 5 a ((. RANDOM) and (.RANDOM Iss 0)) 
$108 i = read !CHOOSE THE READ COMMAND 
e 
21% VALUE = CHECK; 'CHOOSE THE WRITE CHECK COMMAND 
4111 return .VALUE; 
4112 end; 


* , VALUE 
* , VALUE 


a 


3 
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CHOOSE ML11 TRANSFER COMMANDS SEQ 0162 


sPLX4 7-Mar-1 19:26:34 TOPS-20 Bliss-16 V2(212) 
; ML11 TRANSFER COMMANDS sphere} 19:93:44 PA: <NEALE>MLX4.BL1.5 (33) 







































69 : 4113 routine RETRY (TIMES, COMMAND, LUN, WRDCNT, BUFFER, SECTOR) = 
re : 411 begin !e 1 «@ 
pet : reef lee 
1: itt ROUTINE: RETRY (TIMES, COMMAND ,LUN,WRDCNT BUFFER, SECTOR) 
: 4119  § PURPOSE: (1) IF THE OPERATOR HAS ALLOWED E PRINTOUTS, AND 
: 4120 : IF THE RETRY IS NOT TO CATEGORIZE ERRORS, THEN SAY 
5: 41 i THAT THE RETRY IS BEGINNING. 

6087 : 41 : i (2) CHECK OR READ COMMAND 

: 4124 ! S OR UNTIL ALL PERMITTED 
£090 4156 
6091 : 4127} (3) IF A "BEGIN RETRY® MESSAGE WAS PRINTED, THEN A FINAL 
6039¢ ; 4128 MESSAGE ABOUT T CESS OR FAILURE OF THE RETRIES 
6095 : r?. INTED. 
£095 : 4131 (4) RETRY COUNTER FOR EVERY RETRY DONE 
609% : 4132 } FOR ERROR CLASSIFICATION. 
6098 ; tise i 
6099 : 4135 | ARGUMENTS: (1) RETRIES PERMITTED BEFORE 
6100 ; 13 A FAILURE. 
£198 ; ir33 7 (2) OTHER ARGURENTS ARE THE SAME AS FOR START_IT® 
6105 : 4141 |! RESULTS: THE VALUES RETURNED FOR THIS SUBROUTINE ARE THE SAME AS 
6106 : 4140 i FOR THE SYSERR ROUTINE ABOVE . 
6107 : 4143 !<<- 
6108 ; 4144 
6109 : 4145 Label 
6110 : 4146 LOOP: 
6111 ; 414 
oils : 4148 
6113 : 4149 TEMP 
np 
eg £138 TBANK: * 
ee ee 
6120 : 41 1 THIS IS THE CODE FOR PURPOSE 1: 
i 
61 ; , 4155 RETRYING = ACTIVE; 
6125 : 4161 if ((. TIMES 1) and (.ERROUT)) 
g159 : re a OO ei ' le 2s 
6128 : 4164 
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CHOOSE ML11 TRANSF 


ML11 TRANSFER COMMANDS 5 





oO 
wm 


eed ont 


SESSSESSSASSSESSLSSSS EERE ennns 
RUN VS SRVKA RAV VS VANS RAN VISSSF 


GES 


PARAL ARRARLRRARPRRARARARARS 





SEQ 0163 










“Rar=1988 19:83:48 PasenERLESMLRG. 
if .COMMAND eql write then PRINTB (SAY3, WRD2, WAD16, WRD18): 

‘BEGIN WRITE RETRY 

if .COMMAND eql CHECK then PRINTB (SAY3, WRD2, PHR1, WRD18); 

‘BEGIN WRITE CHECK RETRY 

if .COMMAND eql read then PRINTB (SAY3, WRD2, WRD17, WRD18); 

‘BEGIN READ RETRY 
end; 


ja 2% 
+ 
; THIS IS THE CODE FOR PURPOSE 2: 
begin fe 35e 
incr KOUNT from 1 to .TIMES do 
begin '2 4 *® 


if .COMMAND eql write then VALUE = write (.LUN, .WRDCNT, .BUFFER, .SECTOR): 
if aioe eql CHECK 


"ys (. Ls 


if .COMMAND eql read 
then 


-WRDCNT, .BUFFER, .SECTOR): 
HECK (.LUN, .WRDCNT, .BUFFER, ~SECTOR) ; 





ur‘te (.LUN, .WRDCNT, (.BUFFER = BUFSIZ*#2) sSECTOR) ; 
VALUE = read (.LUN, .WRDCNT, .BUFFER, .SECTOR 


i+ 


THIS IS THE CODE FOR PURPOSE 3: 


if .VALUE eql 0 
then ™ 


begin 
if ((. TIMES neq 1) and (.ERROUT)) 
then 


by RETRY WAS SUCCESSFUL 
ie & 


+4 Me (SAY2, WRD18, WRD19); 
PRINTB (CRLF); 





3 
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CHOOSE ML11 TRANSFER C 


ot sMLX4 


61 





Soe 


SSLESPLAN 


Ro Seeees 


o 
~ 


+ 


SRB 


ROC 
ee 
WONOULWN-O<¢ 


PAX RAO ¢ 


rt 
MEU 


PD. DD X®AD AD DAD ANC 





7-Mar-1982 19:26:4 TOPS-20 Bliss-16 Vv2(212) 
ML11 TRANSFER COMMANDS somone | 19:5$.ce PA: <NEALE>MLX4.8L1.5 (33) 
‘RETRY SUCCEEDED 
end; 
COUNT = .KOUNT; 
leave LOOP; 
end; 'e 5 « 
end; 'e 4 & 


'¢ 


FALLS THROUGH HERE IF ALL RETRIES FAILED: 
if ((. TIMES neq 1) and (.ERROUT)) 
then 


in 
PRINTS (SAY2. WRD18, WRD20) 
i VER CZMLBB COMMENTED OUT THIS PRINT CRLF 
PRINTB (CRLF): 


‘RETRY FAILED 
COUNT = .TIMES: 
end; 






‘es 3 # 


end; 
| 


t+ 
THIS IS THE CODE FOR PURPOSE 4: 


if .TIMES 1 
then = 


- 0, 16, OJ = . TRIES C.LUN, .BOARD, 0, 16, 03 + .COUNT: 





RETRYING = INACTIVE: 
> naa - VALUE; 


'e 1 


~-SBTTL RETRY ML11 TRANSFER COMMANDS 


SEQ 0164 


aeiie-o a ae 














o A) 
o £2 2&3 3 2 c s3 8 
= BE See v ~ al “— > 
i= | 
8 as 
pt 4 
eu 
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ff 
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* ee 
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ye ° e e s 
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Ww 
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= ii *= Ticoe 8 = Fite 
c& * eee g e ar *. i being eee B . 
= Bas f 5 a ATE 4 GAS Sae. 
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i 
a 

‘ ; ‘ 
<= _ x a] 


3 2B 
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mt J ik EDESSSS 2S Ss ay MS 
esses! See 
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Ain Sema BFF PAASSERSS 
SESERERSESi eee seee 3 


ee ee a eh Url 


TREN RELA SSYISSBSBSOK NOS OCR OR SEM 2 SE Oe os 


. . 7 . . 7 > 
= 
al ° el sl ’ : * ~ > : . . . *” . . ° - ° - > . . > ° . as . . os . ° . . . . . . : . . . . . > . . 





CZMLBBO 


a 
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eee eee 








wv 8 ~~ x a a S - &S ™~ w 0 roerwn & 
3855 5 $8 & 8s § ¥§ S88 8 
Q 
wo % 

re 

aN 
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— 
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See see ¥ So 
*2as «Zao z — tobe 
Zou0 Zouu > m ol s $5 
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WY 
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1 NS aes eo Catena re 
a BIAS Qa BARA 25RG ave ~ 
= 8% TV Tiwi tx BSAA ah AL S ote aa 
[s< w s 38 8 th ew Ss LF “6. — 
= ww >. S 
feed 2 awn mo 
Fee e Sse sSSe Te Sees esr saesseEeee Sees sesetas 
Ww 
= = we ee 
Re & 3 Ned oo & 
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A 
Sun SANS = 2c Seesexeases © 55 S888 35 2 = 
: BEE pice i ii Bit 
we | Reseaas ss SEDEDES Spee eas sees toga 
= PARI peeeeeecercs: 


Sssess ooooeo Se 


= vs “ae 
| Eeea a 
SELLE oeeorsea rata 
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RETRY ML11 TRANSFER COMMANDS SEQ 0167 
54 sMLX4 7-Mar-1982 19:24:42 TOPS 
5 : ML11 TRANSFER COMMANDS 7-Mar=1 19.38.44 PA:< 
6357 0467 1454 
4 770 032767 000001 133262 #1, ERROUT 
12746 1 #WRD20,-(SP) ; 4233 
1 12746 13) $B. -0ep> 
7010 0127 71 #SAY2,-(SP) 
047014 01274 #3,-(SP) 
04 1 SP ,.RO : SP,* 
% 0670 104414 14 
04 869702 000010 ROrep , 1335 
04 2716 000001 10S: i (SP) : 4267 
6370 ts 016701 165276 : *, TBOARD 4250 
71 01670¢ 165274 R2 : 8 T 4251 
50 16646 20 MOV 0(SP) ,-(SP) : SECTOR, * 4252 
74 047060 One fe bonus | HOV (SS > LUN,* 4253 
75 047064 806300 ASL ——— 
Ss His i 
78 04 ASL 
047074 066700 165242 ADD 
047100 906300 ASL RO | 
1 047102 560 033714 ADD R5, TRIES(RO) : COUNT,* 
047106 010167 165230 MOV R1,BOARD : TBOARD,* 4254 
04711 010267 165226 : TBANK,* 4255 
047116 005726 TST (SP)+ : 4249 
5 047120 005067 165214 11$: CLR : 4258 
047124 010300 MOV : VALUE,* 4114 
047126 005726 TST : 4113 
0471 207 RTS 
90 3; Routine Size: 227 word 


s 
; Maximum stack depth per invocation: 14 words 


91 


a3 


CR TS een epeesenesneennren enteritis 


CZMLBBO PERFORMANCE 
RETRY ML11 TRANSFER 


FER 
abetted al 


a ie, 
RSRSNSESERN 


FRRRERKK 


nus 


EFLELERESFSFLSSSSLESASSSSASSSSSSSSSS 
SSSA SS SSAA A Se TREE LAAT SSS SSS 


SBANAUPUIN SOO UR AROS 


Sat at tat at ate ae eee 
rrr 


“M13 
EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 156 | 
COMMANDS SEQ 0168 — 
7-Mar-1982 19:24:42  TOPS-20 Bliss=16 v2(212) | 
TO SET UP BUFFER POINTERS BEFORE A TRANSFER poe it ES 19:3$.44 PA:<NEALE>MLX4.BLI.5 (34) | 
%sbttl ‘TO SET UP BUFFER POINTERS BEFORE A TRANSFER* | 
routine SET_PTRS (WRDCNT) : novalue = 
begin 
'o+ 
i ROUTINE: SET_PTRS (WRDCNT) 
i PURPOSE: TO MAKE SURE THAT THE BUFFER POINTERS ARE SUITABLY PLACED 
i FORE A_TRANSFER, SO THAT THEY WILL SUPPORT THE CHOSEN WORT 
COUNT WITHIN THE BUFFER SPACE. 
ARGUMENT: § WRDCNT = THE NUMBER OF WORDS IN A TRANSFER. 
i RESULTS: "WPTR’ AND "RPTR' ARE SET BACK TO THE START OF THE BUFFERS 
ONLY IF THE WORD COUNT WON'T FIT. OTHERWISE, THEY ARE LEFT 
: UNCHANGED . 
NOTE: THE WRITE BUFFER IS LOCATED BEFORE THE READ BUFFER. 
if (.WPTR + .WRDCNT®2) geqa END_WBUFF then WPTR = WBUFF: 
RPTR = .WPTR + (BUFSIZ*2): 
return; : 
iia erase SET.PTRS TO SET UP BUFFER POINTERS BEFORE A TRANSFER 
000002 ; mov 2(SP) .RO : WRDCNT,* 4281 
163524 ADD WPTR,RO 
022670 cp RO, #END . WBUF F 
012670 163510 MOV #UBUFF .WPTR 
16 04 mov WTR ARO ; 4283 
163476 MOV RO.RPTR 
RTS PC : 4262 


: Routine Size: 18 words 
: Maximum stack depth per invocation: 0 words 
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CZ7MLB80 

SET.PTRS TO SET UP BUFFER POINTERS BEFORE A TRANSFER 
6454 ;MLX4 
6455 : CHOOSING A WORD COUNT 
iss 

6457 ;: 
64 ° 
645 


Booey "CHOOSING A WORD COUNT’ 
Se (SECTOR, LAST) = 
gin 


6460 : 





Spmar-1989 19:98:44 


; 4 B6 
oe 4 
; 4288 
6461 : 1556 Local 
Ps oc 
e706 : 4291 . 
6465 : 2 § WRDCNT; 
cies : 4 TEMP = .LAST = .SECTOR + 1; INUMBER OF SECTORS LEFT TO TEST 
6467 : 4 ' 
e8 3 2 version czmlbb changed gtr to gtru 
6470 : 4 if (BUFSIZ/256) gtru .TEMP !LESS THAN A FULL BUFFER LEFT? 
Ps} en 
$47 : 4 1 e WRDCNT = .TEMP*256 'YES == USE AS LARGE A COUNT AS FITS 
e ei.se 
667% : £308 WRDCNT = BUFSIZ: INO == USE THE ENTIRE BUFFER SIZE 
6476 : 4305 return .WRDCNT: 
e477 5 t3be end; 
~SBTTL GET.WRDCNT CHOOSING A WORD COUNT 
$4778 016600 000002 aa: ee » LAST. * 
cas 04 3 1 000004 4(SP).RO ; SECTOR,* 
6 1 7 000010 #10 : TEMP,* 
6491 14 103003 : 7 
649 ; 
649 ; 
649% 7222 Pt ; 
64 4 01 004000 1$: #4000.R0 : *,WRDCNT 
38 2 pe ; 
649 - 
eS : Routine Size: 14 words 
= Maximum stack depth per invocation: 0 words 





TOPS=20 Bliss-16 V2(212) 
PA: <NEALE>MLX4.BL1.5 (35) 


SEQ 0169 


4287 


CZMLBBO PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 158. 
WORD COUNT 

























GET.WRDCNT CHOOSING A SEQ 0170 — 
6507 :MLX4 7-Mar-1982 19:26:46 TOPS-20 Bliss-16 v2(212) | 
6 ; COMMAND INTEGRITY ROUTINE smart 19:34 PA: <NEALESML XG BLY -S", ) | 
6510 ; 4307 %sbttl "COMMAND INTEGRITY ROUTINE' | 
6 1) 3 rest rout — : novalue = 1 © ee eee | 
e218 : 4310 
6514 ;: 4311 '44 
6319 : 43i¢ | ROUTINE: INTEGRITY 
$218 : 4314 | PURPOSE: TO MAKE SURE THAT THE BASIC ML11 TRANSFER COMMANDS 
6518 : 4315 WHICH WILL BE USED BY THE EXERCISER (WRITE,READ, 

6519 : 4 16 =. WRITE CHECK) WORK PROPERLY. 

é : 4 18 THE CODE FOR “INTEGRITY® IN BRIEF: 

6525 : 4320 ' BEGIN 1 (START OF ROUTINE) 

6524 : 4321 |! SAY ROUTINE IS 

6525 ;: 4332 ' INCR COMPLEMENT FLAG FROM 0 TO 1 

63 ; 4323 & BEGIN | 2. (START OF COMPLEMENT FLAG SELECTION LOOP) 

6528 : 4325} : INCR LOGICAL UNIT NUMBER FROM 0 TO LAST 

63 ; 4326 ey BEGIN 5 (START OF LOGICAL UNIT SELECTION LOOP) 

63 : 4308 | : : : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
$3 ; 4305 : TF UNIT IS ACTIVE 

6534 : 4331 | :: : : BEGIN S (START OF TEST FOR AN ACTIVE UNIT) 
6535 : 43: ' 3: : : : SECTOR = LOWEST 

6258 : tap; : : ¢ + GETWRDCNT 

63 ; 4335 : : : OR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
6540 43: free ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
6540 4339 totter CIF DROP UNIT. LEAVE TESTLOOP) 
6543 : 4340 | ::::€ FOR AM ACTIVE UNIT) 

6544 : 4341 | ::: END T COMPLETELY TESTS 1 UNIT) 
6545 : 4 ; ios: END OF LOGICAL UNIT SELECTION LOOP) 

6386 : 4 ! LOOP) 

gate “34s i 

6549 : 4346 

6550 ; 4 

oe: i 

a 

bees : 433¢ 

6556 ; 435 

6557 ;: 4354 

6558 : 4355 

$320 : 4305 

6561 : 4 35 


a 
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6563 sMLX4 
6565 © 


Sauron ceeenereees 


Py ee 
ond 


oy oy 
SERS. 


4410 


COMMAND INTEGRITY ROUTINE 


PRINTB (SAY2, WRD34, RTNO): 
'*RUNNING COMMAND INTEGRITY ROUTINE’ 


NG C 
incr COMP_FLAG from 0 to 1 do 
n 
GENS (. COMP_FLAG); 
incr LUN from 0 to (.LSUNIT = 1) do 
begin | 
LOOP : 


begin 


if .DRIVE_STATUS C.LUN] eql ACTIVE 
then 


begin 
LSCUN = .LUN; 


TOPS-20 Bliss-16 V2(212) 


$i fer=12 
PA:<NEALE>MLX4.BL1.5 (36) 


13:$3:4 
77-Mar-1982 19:23:4 


:* 2 * START OF COMPLEMENT FLAG SELECTION LOOP 


:* 3 * START OF LOGICAL UNIT SELECTION LOOP 
:* 4 * START OF LOOP THAT COMPLETELY TESTS 1 UNIT 


1's 5 * START OF TEST FOR AN ACTIVE UNIT 


SECTOR = LOWEST; : 
WRDCNT = GET_WRDCNT (.SECTOR, HIGHEST); 
VALUE = write (.LUN, .WRDCNT, WAUFF, LOWEST): 


i+ 


SEE HOW SUCCESSFUL THE WRITE WAS: 


eocentene VALUE of 'SEE ‘SYSERR® FOR DEFINITION 






0F ERROR # CONTAINED IN ‘VALUE’ 


C1] : 
begin Ie SA * RETRY ALLOWED 


if RETRY (SIX, write, .LUN, .WRDCNT, WBUFF, LOWEST) neg 0 
then 1 'THE RETRY FAILED -- SYSTEM FATAL ERROR 
un? DROPT [. 


LUN] = CODE_4; 
ERRDF (1, A 0); !se%e INTEGRITY ROUTINE ERROR 01 exe 
DODU (.LUN 


‘JUMP JUST BEYOND END OF BLOCK * 4 « 








's SA 


1 5B * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
“Ieeee INTEGRITY ROUTINE ERROR 02 eee« 

JUMP JUST BEYOND END OF BLOCK * 4 * 

'e 5B * 


1@ SC * FATAL DRIVE ERROR -- RETRY ALLOWED 


(3) : 
bass : 
ERRDF (3, MSG1, 0); :eeee INTEGRITY ROUTINE ERROR 03 te* 


SEQ 0171 


ns 


4 
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GET.WRDCNT CHOOSING A WORD COUNT SEQ 0172 
6619 :MLX4 7=Mar-1982 19:26:4 TOPS-20 Bliss-16 V2(212) 
5620 ; COMMAND INTEGRITY ROUTINE Sharm 1988 19: $08 PA:<NEALE>MLX4.BLI.5 ( 
66 ¢ 4611 WHY DROPT [.LUN] = CODE_6; 

5625 ;: se1¢ DODD (.LUN): 

5626 : 441 leave LOOP; {Jue JUST BEYOND END OF BLOCK « 4 « 

5625 : 4414 end; « 5C * 

5626 : 4415 tes; 

5627 ; 4416 

5628 ; el VALUE = read (.LUN, .WRDCNT, RBUFF, LOWEST): 

56350 : tei 1+ 

6631 : 44 i SEE HOW SUCCESSFUL THE READ WAS: 

633 : 46 : 

“os : 44 § selectone .VALUE of ‘SEE ‘SYSERR' FOR DEFINITION 

5635 : 44 : set 10F ERROR # CONTAINED IN ‘VALUE* 

5637 : 4426 (0) : 

5639 : 4428 if (DBL_VALUE = DOUBLE_CHECK (WBUFF, RBUFF, .WRDCNT)) neq 0 

6640 ; 44 then 

6641 : 44 

664¢ : 4431 SA (.LUN): 

6643 : 44 PRINTB (SAY1, MSGS); 

6644 : 44 'ECC LOGIC FAILED TO DETECT DATA ERROR’ 

6645 ; && | PRINTB (FMT - DBL_VALUE, .DBL_VALUE); 

6646 : 4435 36000 DATA: HAH AT LOCATION vYYYyY. 

oeee | 1635 PRIRTE B CEATI2B- oyOBL VALUE nee VALUE): 

6649 : 4038 !"BAD DATA: PPPPPP ay LOCATION aacaa' | 

6650 : 4439 —WHY_DROPT [C. C.LUNI = ODE 

6651 : 4440 | ERRDF (fhe mS 0); !ss%® INTEGRITY ROUTINE ERROR 04 eee 

$628 : rari’ leave Ce ! JUMP JUST BEYOND END OF BLOCK * 4 *« 

6654 ; 444 end: 

$63? : 4444 : 

6626 : teee sin begin 'x SD ® RETRY ALLOWED 

6698 : 44a? | 

6659 : 4448 if RETRY (SIX, read, .LUN, .WRDCNT, RBUFF, LOWEST) 0 

5660 ; 44669 | Me 'THE RETRY FAILED’ == SYSTEM FATAL ERROR 
: 4451 | DROPT £.LUN] = E 4: 
: 445 | tae igh 61, 0): CODE 4: INTEGRITY ROUTINE ERROR 05 sex 
; 4454 Leave LOOP; ! JUMP JUST BEYOND END OF BLOCK * 4 « 
; st? end; | Ie 5D * 
: 1486 (2] : 
: 4460 be in a sally an 's 5E * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
: ERRDP 6. oe i 0); “tees INTEGRITY ROUTINE ERROR 06 tee 
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COUNT 


S7-mar=1968 19:53:44 


DODU (.LUN); 
leave LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
end; te SE « 

at i 's SF * FATAL DRIVE ERROR RETR 

n : é -- NO RETRY ALLOWED 

ERRDF (7, MSG1, 0); !aaee INTEGRITY T RROR 
WHY DROPT C.LUN) =" CODE_6; ne allt. 
DODD (.LUN); 
leave LOOP; : JUMP JUST BEYOND END OF BLOCK * 4 « 
end; 'n SF « 

[4] 


'® 5G ® UNRECOVERABLE DATA ERROR 


!eaee INTEGRITY ROUTINE ERROR 08 *««« 
ODE 7: - 


: JUMP JUST BEYOND END OF BLOCK * 4 * 
's 56 * 





C5] 
:* SH * RECOVERABLE DATA ERROR 


ISOLATE QO; 


if .ERROUT then PRINTB (FMT10B8, .CHAN); 


* BIT ao° 
OLDSEC = .MLEL; 
OLDCHN = .CHAN; 


oo (ONE, read, .LUN, .WRDCNT, RBUFF, LOWEST) eql 5 


i acsin eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
| begin | 
if .ERROUT then ERRHRD (9, MSG4, 0): 


iseee INTEGRITY ROUTINE ERROR 09 222 
UP_HARD_COUNT (.LUN, .BOARD); 


else 
begin 


if .ERROUT then ERRSOFT (10, MSG3, 0); 
;eaee INTEGRITY ROUTINE ERROR 10 see 


UP_SOFT_COUNT (.LUN, .BOARD) 
end 


TOPS-20 Bliss-16 Vv2¢ 
PA: <NEALE>MLX4.B8L1.5 


i ie 
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F 14 
PAGE 162 


TOPS-20 Bliss-16 V2(212) 
PA: <NEALEMLX4.BL1.5 ( 


ieee INTEGRITY ROUTINE ERROR 11 s#0« 


‘SEE *SYSERR’ FOR DEFINITION 
!OF ERROR # CONTAINED IN ‘VALUE' 


!* 51 * RETRY ALLOWED 
LOWEST) neq 0 
'THE RETRY FAILED =- SYSTEM FA AL ERROR 


:eaee INTEGRITY ROUTINE ERROR 12 *ee« 
‘JUMP JUST BEYOND END OF BLOCK * 4 « 


's SJ * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
“tees INTEGRITY ROUTINE ERROR 13 tee 
{JUMP JUST BEYOND END OF BLOCK * 4 * 


« 5K * FATAL DRIVE ERROR -- NO RETRY ALLOWED 
itess INTEGRITY ROUTINE ERROR 14 e2* 


— JUST BEYOND END OF BLOCK * 4 * 
is SK * 


6731 sMLX4 7-Mar-19 
6 : COMMAND INTEGRITY ROUTINE oF mer~ 1386 19:5$:4 
6 3 4515 else 
$58 : 4a19 — 
6737 : 4318 if .ERROUT then ERRSOFT (11, MSG3, 0): 
tn? 

: 4521 UP_SOFT_COUNT (.LUN, .BOARD): 

: 45 § end; 

: 45 

s 4526 ; 's SH *® 

: $2 5 tes; 

; 43 ; VALUE = CHECK (.LUN, .WRDCNT, WBUFF, LOWEST): 

i 45 14 

: $33 ! SEE HOW SUCCESSFUL THE WRITE CHECK WAS: 

: 45 

5 4338 selectone .VALUE of 

5 45 set 

$ 4535 

; 45 C1) : 

3 $3 begin 

: 45 if RETRY (SIX, CHECK, .LUN, .WRDCNT, WBUFF, 

: 4540 then 

3 4541 yy 

; 454¢ T C.LUN] = CODE_4; 

: 454 ERRDP 7) (12, MSGI, 0); 

: 4544 DODU (.LUN): 

3 4545 leave LOOP: 

$ +228 end; 
oreo | reat end te 5] * 

: 4549 : ; 

§ 4550 (2) : 

: $22) et DROPT C.LUN = 

: 455 PRRDE rt (13, MSGI, Oe 

: 4554 DODU (.LUN): 

: 4555 leave LOOP: 

§ & end: te SJ 

3 455 

5 $33 [3] : " 

: 4560 3 ae (14, MSGI, 0): 

: 4561 WHY_DROPT f.LUN) = = Cove 

; 1268 DODD (.LUN): 

: 4 leave LOOP; 

3 4 end; 

6365 

3 4566 £4] 








SE@ 01/74 


, 
ee ee 
SLE eee 
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6787 ;MLX4 7-Mar-1982 19:246:4 - - 
6 : COMMAND INTEGRITY ROUTINE $honar=1983 19:93:44 PA: <NEALESPL XS OLI-$"¢ 5) 





4567 , 
e i 
ret: WHY DROPT'C.LUNS = CoDe_?; 
i ee ers JUgP JUST BEYOND END OF BLOCK * 4 # 
457% : : 
6376 oe begin. ote 5M * RECOVERABLE DATA ERROR 
pee ISOLATE (); 
: if .ERROUT then PRINTB (FMT10B, .CHAN); 

aupsec me: 


if RETRY (ONE, CHECK, .LUN, .WRDCNT, WBUFF, LOWEST) eal 5 


PELL LLSE 
SlSaRaRsSS 


if CCOMLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
begin | 
if .ERROUT then ERRHRD (16, MSG4, 0): 


Ieeee INTEGRITY ROUTINE ERROR 
UP_HARD_COUNT (.LUN, .BOARD)s OU UINE ERROR 16 sess 


else 


begin 
if .ERROUT then ERRSOFT (17, MSG3, 0): 


tenes INTEGRITY T | 
UP SOF T_COUNT (.LUN, BOARD); OUT IE _— — 


else 
begin 


if .ERROUT then ERRSOFT (18, MSG3, 0): 


'eaee INTEGRITY T 
uP SOF T_COUNT (.LUN, BOARD): ITY ROUTINE ERROR 18 «22% 
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end; t's 5M 
tes; 


end; '# 5 * END OF TEST FOR AN ACTIVE DRIVE 
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WRDC SEQ 0176 
MLX4 7-Mar-1982 19:26:46 TOPS- iss-16 V2(212) 
; i COMMAND INTEGRITY ROUTINE ome lt 19:39:44 ey AO ll ) 
; 19 
: end: Ie ‘ * END OF LOOP THAT COMPLETELY TESTS 1 UNIT 
3 end: 's 3 © END OF LOGICAL UNIT SELECTION LOOP 
6850 ; $ end: !s 2 * END OF COMPLEMENT FLAG SELECTION LOOP 
: 5 return; 
; end: '® 1% END OF ROUTINE 
.SBTTL INTEGRITY COMMAND INTEGRITY ROUTINE 
INTEGRITY: 
532 JSR Rt SSAVES : 4308 
5 i MOV #RTNO,-(SP) : 4359 
: MOV WIRD 34 = (SP) 
5 MOY #SAY2 (SP) 
5 MOV #3,~(SP) 
: 44 $7 RO 3 SP,* 
pet 7. CLR : COMP. FLAG 4362 
6872 1$: MOV R1,-(SP) > COMP.FLAG,* 4364 
65 JSR PC. GENS | 
6874 76 MOV LSUNIT,20(SP) , : 4366 
6376 06736 ine 8S — 
5877 04731 2$: MOV R4,RO : LUN,* 4371 
04731 ASR n 
16 - ASR 
os 57 ADD #DRIVE .STATUS,RO 
0% $26 MOV «ROL=(SPD 
at MOV RS =( ) e LUN,* 
if BIC #177770, (SP) 
36 MOV #1,-(SP5 
. CLR -(§P) 
| JSR PC .BLSGT2 
50 ADD #16.SP 
uO 
aC MOV R4.LSLUN : LUN,* 4374 
MOV R4,RO : LUN,* 4375 
66 ASL 
mov #L OW, SECT.R2 
MOV (RO), 22(SP) : *, SECTOR 
rt0S MOV (Re) ,22($P) | : SECTOR,* 4376 





TOPS | 
PA:< 


SEQ 0177 


it 


ao 


eee 


37-Mar-1983 
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sMLX4 





















5 Ss & Se | 
w wT wT we Fr wow 
iS Poa Ww a~ om, ae 
on eS = . § * z iS 
e *= zs “= Ss * 8s *.* s* “<= 
iz =2 «88 4 e272 g 3 “ES « 
Peer > =! + al > « a > Peer Se 
ee *%*e *e ee *e ee ee *e@ ee ¢e ee ee *@ ee ce ee ee ee oe ‘eece ee se cee 
a. 
or, om 
7 z z z 
~s -~— — i Ho 
Hs fh bk 
ad od od 
-_ ataa i > ad 
ws = autta tea = > > a 
eaere eS ae? Bot 25 28 8 $2 % 
& 6 
SLosogse vsonesenge Steven Bosnmoren BosnornBesen nee 








SABESEDSEREDEDERESSDESS Sess gbySSeseaspyteeeeate. on 


4$: 


034446 


000012 





sess 


oe era 





Oe 





re RENEE a 
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MLBBO PERFORMANCE EXERCISER 
TEGRITY COMMAND INTEGRITY ROUTINE SEQ 0178 
5 sMLX4 7-Mar-1982 19:24:46 T 
6356 : COMMAND INTEGRITY ROUTINE oe at 19: $i0e pare 
6958 76246 F.=(SP) 
7 (R2) ,-(SP) 
6960 7 Pp READ 
7 RO,R 3 *, VALUE 
ooee 7 3 4423 
#UBUFF ,-(SP) : 4428 
#RBUFF . ~(SP) 
5 047 R3,-(SP) : WRDCNT,* 
? PC, DOUBLE . CHECK 
°32(SP) : *,DBL. 
$965 an oe a ae 
.” e o* 
Br ties tert ie us 
69 1 me MOV =(SP) : 
Gr Sre Bias “ae s 
Ps o* 
ers Bae eat Be Soin oon mi us 
° * 

1 MOV 0(SP5 ,=(SP) : DBL. VALUE.* 
o3r9 13966 MOY toa’ =(SP) 

127 MOV #3,-(SP5 

77 1 MOV : SP,* 

7742 14 TRAP 

77 766 000046 ADD : *, DBL. VALUE 4436 
MOV : DBL. VALUE, « 4437 

1 MOV 3 - VALUE , * 

12746 MOV 

ig im & s 

e o* 
7774 104414 TRAP 1% 

1127 034446 nove #10. WHY .DROPT(R4) : *,*(LUND 4439 
$992 980006 4 woRD ; _ 
£358 5¢ “WORD SGT 

£ OV R4,RO ° LUN,* 4441 
599% TRAP sé 
“ es: ADD a SP : 4442 
: CP R : VALUE,* 4423 
ROY (SP) 4448 
MOV #READ (SP) . 
MOV Ré.=( ) : LUN,® 
MOV -(SP) : WRDCNT,* 
MOV F.=(SP) 
MOV (R2) ,-(SP) 
JSR RETRY 
ADD ai.sP 
TST 





































R | 
6 ROUT INE SEQ 0179 | 
PS SMLX4 7-Mar-1982 19:26:42 TOPS 
- : COMMAND INTEGRITY ROUTINE 7-Mar=1 1955204 PA:< | 
'90 10$: § BNE 11$ 
f IMP 24S 
93 30 034446 11%: MOVB #4,WHY.DROPT(R4) : #,* (LUN) 4451 
TRAP 5 $ 4452 
++ e WORD 
05 -WORD MSG 
¥ oN ~WORD 
i°7A 'p}! MOV R4,RO 3; LUN,* 4453 
»5¢ TRAP =‘ 1 
BR 15$ $ 4454 
12$: cH R542 3 VALUE,* 4423 
034446 MOVB #5 , WHY .DROPT(R4) 3: *,*(LUN) 4461 
9 TRAP 5 5 4462 
. “WORD 
% are sla _ 
ae es 64 
13$: cmp 3 VALUE,* 4423 
1 TRAP : 4469 
= 
. WORD | 
034446 MOVB #6. WHY .DROPT (R4) : *, (LUN) 4470 
MOY RO 3; LUN,* 4471 
3 ay il 472 
i 14$: cw a4 > VALUE,* 4423 
JSR PC, ISOLATE : 4477 
TRAP 33 5 4478 
“WORD Ont mSG2 
WORD 0 
034446 MOVB #&7,WHY.DROPT(R4) : *,*(LUN) 4479 
MOV 4,R0 3; LUN,* 4480 
TRAP 
15$: ADD SP : 4481 
16$: 
17$: oe 3; VALUE,* 4423 
JSR SOLATE : 
131766 git RROUT : rt 
MOV aM .REG*+42,R0 
ASR 
ASR 
ASR 
ASR 
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MLBBO PERFORMANCE EXERCISER 
INTEGRITY COMMAND INTEGRITY ROUTINE SEQ 0180 
7 sMLXG 7-Mar-1 19:26:42 TOPS 
7088 ; COMMAND INTEGRITY ROUTINE oo fernt 19233244 PA:< 
7070 
71 R 
2 #177700,R0 
RO (SP 
7% #FAT10B,-(SP) 
7075 #2,-(SP5 
2076 SP,RO : SP,* 
0 #6, SP 
roe 000036 18S: aM .REG+44, 36 (SP) : *, OLDSEC 4491 
aM .REG+42.RO : 4492 
1 ASR RO 
ASR 
< ASR RO 
ASR RO 
BIC #177700,RO 
MOV RO, 34(SP) : *,OLDCHN 
MOV 1.=(:P) : 4496 
MOV #READ,~(SP) 
7091 MOV =s_ R4, = (SP) : LUN,* 
1092 MOV R3,-(SP) : WROCNT,* 
MOV #RBUFF (SP) 
7094 MOV (R2) ,-(SP) 
7095 JSR RETR 
709% ADD #ik SP 
CMP RO 
7098 BNE 21 
000036 CMP -REG+44,, 36(SP) : *, OLDSEC 4497 
7100 BNE 
7101 MOV (SP) ,=(SP) -: OLDCHN,* 
£102 MOV aML .REG+42,R0 
71 ASR RO 
£104 ASR 
7105 ASR 
71 ASR 
71 ASR 
71 ASR 
ot40 Cm ORD COD 
7111 BNE aie 
lie 131546 BIT #1, ERROUT 2: 4501 
711 BEQ 19§ | 
7114 TRAP 36 
7115 . WORD 
£116 .WORD MSG4 
711 5 eWORD 0 | 
118 051 19$: MOV R4,-(SP) : LUN,* 4504 
o138 os ish BELUP“ HARD. COUNT 
r139 BR Ss : 4497 
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PA:< 


SEQ 0181 
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SEQ 0183 








COMMAND INTEGRITY ROUTINE 

















R m wv 
3 > § Ss 8 §: & 
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~ ~~ bes ae _ a. rot 
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3238: 
33$: 
34$: 
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ROUT INE 





SEQ 0184 | 








SMLX4 “Mar-19 4:42 TOPS | 
: COMMAND INTEGRITY ROUTINE So parn 196s 18 9:58; 144 PA:< 
514 9$ 
32 $ 175656 
14 ° 39$: (SP) + ; 4363 
14 1 : COMP.FLAG 4362 
1440 7 000001 ~—C Ri sa : COMP.FLAG,* 
8 1 1 § 175616 r 
14 22 40$: #22,SP : 4308 
0514 20 





Wire 


: Routine Size: 587 words 
: Maximum stack depth per invocation: 33 words 


—_ 2 
-—o 


oe 


mt 


SER MACRO M1113 29-MAR-82 13:41 PAGE ay 












“a 


: BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS ONE UNIT) 
. * IS ACTIVE 


BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 


MLBBC RCI 
TEGRI TY ROUTINE SEQ 0185 
13: 7-Mar-1982 19:24:4 TOPS=-20 Bliss-16 V2(212) 
14 DEFINITION OF OPTION 1 oe at 19:3: PA: <NEALE>MLX4.BLI.5 (37) 
16 : 4 7 routine OF "DEF NITION OF OPTION 1° 
P+ : nova = 
18 : '% 1% START OF ROUTINE 
0: 1 'ee¢ 
4 {ROUTINE : OPT1 
5 i PURPOSE: TO CHECK ADDRESSES USING DATA = SECTOR NUMBER. 
524 4635 ! TRANSFERS ARE 4K WORDS IN LENGTH, AND ALL SECTORS 
525 4 : ARE TESTED. 
27 46 g : THE CODE FOR ‘OPT1" IN BRIEF: 
525 i BEGIN 1 (START OF ROUTINE) 
5C ! SAY ROUTINE IS 
1 : INCR COMPLEMENT FLAG FROM 0 TO 1 
5 ! ; BEGIN 2 (START OF P COMPLEMENT FLAG SELECTION LOOP) 
53 i; INCR LOGICAL UNIT 
53 ! : : BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 
1 : : TESTLOOP: 
=. 
i 
| 
; 


eens t omar AND READ BUFFER POINTERS 









Df: : SECTOR 

: : : : WHILE SECTOR LEQ HIGHEST DO 
[oes 2: BEGIN & (START OF SECTOR SELECTION LOOP) 
i 3 3 2 : : GENERATE THE PATTERN 
Pris eg BUFFER POINTERS BEFORE TRANSFER 


RRORS (IF DROP UNIT, LEAVE TESTLOOP) 
CHOOSE WHETHER TO WRITE CHECK OR READ 
Pras DO THE WRITE CHECK OR 

: : £ : ¢ LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
CHANGE BUFFER POINTERS AFTER 


sees | END 
4 #4 
466 , 33 


HEALER ARARHLARRRRLRS 
SESEREROOROOOCOSSESARESES 
=OOONAULSWN =O CONAULSWN =O 


eee 
WN=-o0 USWN)O wc 






4678 VALUE, 


Ps PERFORMANCE EXERCISER 
INTEGRITY COMMAND INTEGRITY ROUT] 


~ 


BRRRARRERSAN 


1 
1 


5 


ced weed ed ed coed ed et 


WH 





4679 
4 
4681 


DEFINITION OF OPTION 1 
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WRDCNT 
COMMAND 


PTR 
OLDSEC, 
OLDCHN, 
SECTOR, 
DBL_VALUE; 


PRINTB (SAY2, WRD34, RTN1): 
!*RUNNING OPT1° 


incr COMP_FLAG from 0 to 1 do 
begin 


LOOP : 





In 2 
incr LUN from 0 to (.LSUNIT - 1) do 
begin ‘es 3 « 
begin !* 4 & 
if .DRIVE_STATUS C.LUN] eql ACTIVE 
then 
in 's 5 & 
LSLUN = .LUN; 
WPTR = 
RPTR = RBUFF: 
SECTOR = LOWEST: 
while .SECTOR lequ HIGHEST do 
in ‘2 6 ® 


GEN] (.SECTOR, — FLA 
WRDCNT = 





Bprar-1969 19:98:64 


rr ee 


SEQ 0186 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.BL1.5 (¢ ) 


START OF COMPLEMENT FLAG SELECTION LOOP 


START OF LOGICAL UNIT SELECTION LOOP 
START OF THE LOOP THAT COMPLETELY TESTS ONE UNIT 


START OF TEST FOR AN ACTIVE UNIT 


START OF SECTOR SELECTION LOOP 


= GET WRDCNT T. eran, HIGHEST) ; 
SET _PTRS CCURDENT). 
VALUE = write (. LUN, .WRDCNT, .WPTR, .SECTOR): 


_ it 


SEE HOW SUCCESSFUL THE WRITE WAS: 


selectone .VALUE of 
ser 


C1] : 
begin 


if RETRY (SIX, write, rine 
then RE 


a 


ERADF wit t Nas 
DODU (. 


Leave LOOP; ° 
end; 





i” x 


RETRY FAILED” 


: SEE *SYSERR® FOR DEFINITION 
:OF ERROR # CONTAINED IN ‘VALUE' 


'* 6A * RETRY ALLOWED 


eWRDCNT, .WPTR, .SECTOR) ne 


and SYSTEM FATAL "ERROR 


E_4: 
“teens OPTION 1 ERROR 01 e202 


! JUMP JUST BEYOND END OF BLOCK * 4 * 


CZMLBBO PERFORMANCE EXER 
INTEGRITY COMMAND INT 


7425 sMLX4 


ro tt tt >t tt 





C 
I 


I 
T 


SER MACRO M1115 29-MAR-82 13:41 PGi 7s 
Y ROUTINE 


DEFINITION OF OPTION 1 


ee 








Spmar-1985 19:94:56 
end; !* 6A « 


(2) : 


Unt DROPT C.LUN) = CODE. 
ERRDP (102 - SG1, 0); 
DODU (. 


leave LOOP; * 
end; 


C3] : 


zie (103 ASG) 0); 

Y_pROPT (.LUN] = * ed 
DODO (.LUN);: 
leave LOOP; 


* 6C * FATAL DRIVE ERROR -- 
ieee OPTION 1 ERROR 


* 6C * 
tes; 


COMMAND = CHOOSE (): 
if .COMMAND eql read 
then ' 
n 
Begin eRPTR; 
VALUE = read (. LUN, .WRDCNT, shies - SECTOR): 
la 


Pm 


VALUE = WeHEEK (.LUN, .WRDCNT, .WPTR, .SECTOR): 


$4 
: SEE HOW SUCCESSFUL THE OPERATION WAS: 


batostone VALUE of ; SEE *"SYSERR' FOR DEFINITION 


[0] : 
if .COMMAND eql read 
then 
begin 


if <DBL_VALUE = DOUBLE CHECK (.WPTR, .RPTR, .WRDCNT)) neq 0 


fi 
SAYWHO (. LUN); 
PRINTB (SAY1, MSG5) 


TOPS=20 Bliss-16 v2¢ 
PA: <NEALE>MLX4 .BLI.5 


_* FATAL CONTROLLER ERROR == NO RETRY ALLOWED 
‘eee OPTION 1 ERROR 02 se0« 

: JUMP JUST BEYOND END OF BLOCK * 4 « 

's 6B * 

ng RE RETRY ALLOWED 


i JUST BEYOND END OF BLOCK * 4 « 


/9F ERROR # CONTAINED IN ‘VALUE’ — 


SEQ 0187 


:"ECC LOGIC FAILED TO DETECT DATA ERROR’ 








_—s Se er une 
—_—. — 
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INTEGRITY COMMAND INTEGRITY ROUTINE SEQ 0188 
1 











MLXG 7-Mar-1982 19:26:46 *PS=20 Bliss-16 v2(212) 
; DEFINITION OF OPTION 1 oo ar 1385 19:34:34 P \:<NEALEDMLX4.BLI.5 (39) 
: 47 PRINTB (FMT12A, ..DBL_VALUE, .DBL_ VALUE): 
: 4 1*GOOD DATA: KXKXKK AT LOCATION Yyvvry’ 
toRe PRINTS: (EMT 2B Cow DBL VALE bbe” VALUE) - 
: 4 '*BaD DATA: PPPPPP AT LOCATION ocQcdd’ 
: 4 WHY_DROPT C.LUN] = CODE_8; 
: é Raat cue MSG1, 0); !aaee OPTION 1 ERROR 04 «a0« 
: 4791 Leave LOOP;°!JUMP JUST BEYOND END OF BLOCK * % « 
3 pas end; 
3 479 
; pan: end: 
; 429% C1) : 
: 479 begin '® 6D * RETRY ALLOWED 
7500 : 1599 if RETRY (SIX, .COMMAND, .LUN, .WRDCNT, .PTR. .SECTOR) neq 0 
ey ; 4800 begin ‘THE RETRY FAILED -~ SYSTEM FATAL E 
7503 : 480 WHY DROPT C.LUN] = CODE_4; 
7504 : 1808 ERRBF (105 MSG1, 0): “!*ees OPTION 1 ERROR 05 see 
7506 ; “Bos leave LOOP:" | !JUMP JUST BEYOND END OF BLOCK « % « 
7508 : tBoe ‘ 
7509 : 4808 end; | ie 6D * 
7510 : 4809 ; 
7511 : 4810 (2) : | 
o31e : 481] begin !@ 6E * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
7513 : le MY DROPT CUM) = CODE_5: 
fed ; re SF a ui” 0): !'aeae OPTION 1 ERROR 06 «ee 
2516 : 4815 - leave LOOP:* ‘JUMP JUST BEYOND END OF BLOCK * 4 * 
7517 ; sai6 end: is 6E ® 
feds : 481 
7519 : 4818 (3) : 
75 D : 1 be Me hinsicin js 6F FATAL DRIVE ERROR =- NO RETRY ALLOWED 
75 : tB5y ERABP C107, "ASGI. ose ities tees OPTION 1 ERROR 07 xee2 
7526 : $ leave LOOP;’ 1Jume JUST BEYOND END OF BLOCK * 4 * 
; 3 [4] j | 
7528 : in " '® 6G * UNRECOVERABLE DATA ERROR 
: ERRDF (108. MSG2. 0); ‘eee OPTION 1 ERROR 08 eee 
g ; WHY DROP PT -LUNJ "= CODE_?: 
7533 : leave LOOP; ’ ‘JUMP JUST BEYOND END OF BLOCK * 4 « 
Le} : ; end: 'e 66 * 





aa RR eee 
H 15 
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CZMLBBO PERFORMANCE EXERCISER 
INTEGRITY COMMAND INTEGRITY ROUTINE SEQ 0189 
7537 sMLX4 7-Mar-1982 19:26:46 TOPS-20 Bliss=-16 V2(212) 
ce: : DEFINITION OF OPTION 1 one ai ES 19:23:34 PA:<NEALE>MLX4.8L1.5 (37) 
7540 ; (5) : 
7541 peain !* 6H * RECOVERABLE DATA ERROR 
Le 9, ISOLATE (); 
if .ERROUT then PRINTB (FMT10B, .CHAN): 
hd BIT QQ’ 
OLDSEC = .MLEL; 


OLDCHN = .CHAN; 
7 RETRY (ONE, .COMMAND, .LUN, .WRDCNT, .PTR, .SECTOR) eal 5 
en 


SS aeee eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
begin 
if .ERROUT then ERRHRD (109, MSG4, 0): :aae OPTION 1 ERROR 09 «eee 
UP_HARD_COUNT (.LUN, .BOARD); 

else 


begin 
if .ERROUT then ERRSOFT (110, MSG3, 0): Seaae OPTION 1 ERROR 10 «eee 


UP_SOFT_COUNT (.LUN, .BOARD): 
end 


else 
begin 


UP_SOFT_COUNT (.LUN, .BOARD): 
end: 


end; 's 6H * 
tes; 


TR = .WPTR + (.WRDCNT*2); 


WPTR : 2) 
SECTOR = .SECTOR + (.WRDCNT/256): 
end; 's § * 


BERR E Rn Nee tas as aay Sie SaaS 





END OF SECTOR SELECTION LOOP 
end; !s 5 * END OF TEST FOR AN ACTIVE UNIT 


'4 

: Test to see if this uut's address space is 
! to read for soft errors. This test is 
is intended for DMT purposes. 










vt, 
LER 


or 
$2 


SINS N I 
_ 


38 


Sa 
SES 


WONOUS WHO 
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$i ner~ 1368 13:86:6 TOPS=20 Bliss-16 V2(212) 


DEFINITION OF OPTION 1 7-Mar-19 PA: <NEALE>MLX4.8L1.5 (37) 
) teal !Is the background pattern to be read 
begin 


' 
: version czmlbb changed incr to incru 


incru SECTOR from LOWEST to HIGHEST do 
if read (.LUN, 256, RBUFF, .SECTOR) eql 5 
then 


rin 
ISOLATE (); !Find the failing bank and board no. 
if .ERROUT then PRINTB (FMT10B, .CHAN): 

! Print where the error is 


t 

é 

! Save the contents of the ML error location 
register so we can compare it to the new 
i 
i 


contents of this register after the retry. 
This is done to classify the error. 


OLDSEC = .MLEL; 
OLDCHN = .CHAN;: 
' Do a classify retry call. If the same error 

! occures then classify it as a hard error. If 

: a diff cog Panna occured or the error went away 
4 


: then classify it as a soft error. 


—e (ONE, .COMMAND, .LUN, 256, .PTR, .OLDSEC) eql 5 
' 


! The same error occured so see if it is at the same 
! sector and channel r, if so then classify 

! it as a hard error else classiy it as a soft 
error. 


- ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
en 


begin !Same error occured ‘hard’ 
if .ERROUT '‘Print error if enabled 
then 


begin 

ERRHRD (112, ‘Error number 

MSG4, ‘Error message | 
0); ‘Additional message routine 





SEQ 0190 





Senne 
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Y COMMAND INTEGRITY ROUTINE 
SMLXG 7-Mar-1982 19:24:4 TOPS-20 Bliss-16 V2(212) 
- DEFINITION OF OPTION 1 oe a ES 19:3$.64 PA:<NEALEDMLX4.8L1.5 (37) 
; UP_HARD_COUNT (.LUN, .BOARD); 
: else 
: begin 'Not the same error ‘soft’ 
: if .ERROUT ‘Print error if enabled 
; then 
; begin 
3 ERRSOF T (113, !'Error number 
3 SG3, ‘Error message 
: 0); ‘Additional message routine 
$ end; 
: UP_SOFT_COUNT (.LUN, .BOARD); 
3 end 
; else ‘Not the same error ‘soft’ 
; begin 
: if .ERROUT ‘Print error if enabled 
$ then 
3 poain 
; ERRSOFT (114, ‘Error number 
$ MSGS, ‘Error message 
; 0); ‘Additional message routine 
3 end; 
; UP_SOFT_COUNT (.LUN, .BOARD): 
: end; | 
: end; 
: end; 
: - end: ff & ®@ END OF LOOP THAT COMPLETELY TESTS ONE UNIT 
; end; !'s 3 * END OF LOGICAL UNIT SELECTION LOOP 
; end: !s 2 © END OF COMPLEMENT FLAG SELECTION LOOP 
; return: 
: end; !'s 1 * END OF ROUTINE 

serie OPT1 BEE INITION OF OPTION 1 


ae a a ! 


| 
SEQ 0191 


C 
OPT1 DEFIN 
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S 
m~ 


SEERT SERS 
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1516 
10 
012670 
70 


10 
034500 


167062 
175274 


sae 


160744 
173472 
000001 


Oaseze 


000012 


sMLX4 


1$: 


2s: 


5$: 





MOV 
MOV 
MOV 
MOV 
ASL 
MOV 
CMP 
BHI 
MOV 
MOV 
JSR 
MOV 
MOV 
JSR 
MOV 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
CMP 
BNE 
MOV 
MOV 


DEFINITION OF OPTION 1 


#RTN1.-(SP) 
rr 
acs 
SP,RO 
14 


P) 


N 
oa 
ms 


PPP 


VE. STATUS. RO 
(sp) (SP) 
77770, (SP) 

#1 5 (SP) 


BLS$GT2 
6.SP 


BD 
conek. 


AD Ue 
o2an 


LOW. SECT(RS) .R4 
R4, TOP. SECT (RS) 


3$ 

RG ~(SP) 
(SP) ,=(SP) 

PC, GENT 


R4 
TOP. SECT(RS) ,-(SP) 
»GET.WRDCNT 


#6,-(SP) 
#WRITE ,-(SP) 


SP,* 

COMP ..FLAG 
LUN 

LUN,* 


LUN,* 


LUN, * 


> LUN,* 


* SECTOR 
SECTOR, * 


SECTOR,* 
COMP .FLAG,* 


SECTOR,* 


* ,WRDCNT 
WRDCNT,* 


; LUN,* 
; WRDCNT,* 


SECTOR,* 


* , VALUE 
VALUE, * 





ee 


SEQ 0192 
SrMarG 188ee 
4687 





4690 
4693 


4698 





C2 
OPT 





PERFORMANCE E 
DEFINITION OF OPT 


RRS 
SSSesee 


bee 


VW 
tb ob od od od od od OOS 


FSRVSEKSRRS. 


NOS RVSANG! 


eund ond and aod ened amd 


NU AAA 


[Oc 


etm cond ed wd cand ncad ord 


SSRIS 





So 
ered ened ami 


sagcisee 


=—& —) od 
awh ened cat coed 
z seRee 
-_- 
oote 
ob PUD ant od 


o= 
5S 
al 


=o 
sstes 


=OO 
S38 
RUS 
NU 





XE 
I 


000030 
160704 


seit 
sai 


000024 
000002 
000024 
000005 
000024 


000003 


000006 
000014 


174024 
000084 
045612 


sti 


160472 
173404 


— eee 
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034446 


034446 


034446 


000036 


foxy 
= 
oO 


eases 


RACEPS GORE gg ERU ey gg eaeNN gags eae 


DEFINITION OF OPTION 1 


+: Spert -(SP) 


=(SP) 
WPTR 
R4,~-(SP) 


OF 
24(SP) ,R1 
eg eNY .OROPT (RI) 


145 
MSG1 


taal oRO 





8$ 

R342 

7$ 

24(SP) ,R1 

g3-UHY DROPT (R1) 


146 
MSG 


4(SP).RO 


8$ 
R343 


5 
147 
MSG1 


4(SP) ,R1 
#6,WHY .DROPT(R1) 
R1,RO 

51 

#14,SP 

$ 


14 
RO, 300SP) 


: yee 
R 







RPTR, 36(SP) 
24 (SP) ,=(SP) 
2,-(SP) 


et stan -sttieene 


SEQ 0193 
7-Mar-1982 19:26:42 TOPS 
soarn 8 19:3$.64 PA:< 
3; LUN,* 
$ WRDCNT, * 
3 SECTOR,* 
; LUN,* 4726 
3 4727 
; LUN,* 4728 
5 4729 
3; VALUE ,* 4717 
; LUN,* 4736 
; 4737 
; LUN,* 4738 
3 4739 
3; VALUE,* 4717 
; 4744 
; LUN,* 4745 
:; LUN,* 4746 
3 4747 
: 4751 
3; *, COMMAND 
; 4753 
; COMMAND,* 
; *,PTR 4756 
; LUN,* 4757 
: WROCNT,* 
s SECTOR,* 





SEQ 0194 
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INITION OPTION 


CZMLBB0 


OPT1 DEF 


i 8 & EF & # E£F FESE 
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-— Qaviagmivug eet ane ao | Se re BLE a o 3 & e 
S Serle scot MSaanve IQvSQetaresse rar senks sp Sknee 
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sMLX4 


a es ee @e 
S - & oe 
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R Oo oO 

a) i 

So 

> J 
we339 see Becks 2228 $8883 22 R25 
wy So So © 

sesh 533k : Suess s = sssse 8s : : 





Seeeete SBSSSSII ISS 
PSs Bese 
oooono om 


29984299982 BOSC Peso SNR PSST SANS 
SOAS SELES SeaneveRyEce age. 


go 
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CZMLBBO PER EXE 
OPT1 DEFINITION OF OPTION 























sMLX4 7 1 19:26:42 TOPS 
; DEFINITION OF OPTION 1 oa at 19:23:44 PA:< 
46(SP) (SP) ; COMMAND, 
Oiseee iets 40(SP) -=(SP) ita" 
rh ae 000056 Be tse) SP) ; WROCNT, * 
47 10s68 R4,-(SP) : SECTOR, * 
767 173520 PC-RETRY 
706 0000 #14,SP 
8 
1 1 34 (SP) ,R1 : LUN,* 4802 
; Hi fai 034446 #4, WHY .DROPT(R1) 
6 104455 TRAP 55 : 4803 
151 .WORD 151 
2 011070 - WORD 
WORD 
5 01 000034 MOV (SP) ,RO : LUN,* 4804 
42 104451 TRAP 
BR s 4805 
000002 16$: CMP : VALUE,* 4769 
£507 | ROY ),R1 LUN, * 4812 
034446 MOVB #5,WHY.DROPT(R1) _—— 
TRAP : 4813 
. WORD 
WORD 
. WORD 
MOV (SP) ,RO : LUN,* 4814 
TRAP 
BR : 4815 
17$: chp : VALUE, * 4769 
: MOV SP) RI : LUN,* 4820 
034446 MOVB #6.WHY.DROPT(R1) 
TRAP § : 4821 
. WORD 
nov | (SP) RO : LUN,* 4822 
BR 482 
18$: CMP : VALUE,* t5e8 
164452 JSR PC, ISOLATE : 
TRAPS 4859 
. WORD 
“WORD 
900034 MOV Be (sp) : LUN,* 4830 
7 034446 MOVB #7,WHY.DROPT(R1) 
ROY 1,R0 : LUN,* 4831 
000024 19S: ADD #24,SP : 4832 





10 
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FINITION OF OPTION SEQ 0196 
ZMLX4 7-Mar-1982 19:24:42 soe] 
£9 ; DEFINITION OF OPTION 1 Spmara1982 19:oh:c4 | Bae | 
7932 05271 1 :  JMP 
09 put 000008 i$ CMP ages . ; VALUE,* 4769 
7935 08 164402 ysh BC ISOLATE : 4837 
7936 05273C 1 127322 BIT § #1-ERROUT ; 4839 
79 y t. BEQ 228 
7938 05274C 161444 mov afl .REG+42 .R1 
Faat Baste ran 
y « ’ 
734 xs t 3 ASR OR 
7945 052766 177700 Bic —«#177700,R1 
7346 052764 MOY RI = (Sp 
7947 052766 0 MOV  4#FMT10B,-(SP) 
1948 i 2 MOV =: #2, = (SPS 
794 J. : The ¥7 ohO e SP ,* 
ei 05 300: ADD #6, SP 
153008 161400 000050 22$: MOV §§ aML.REG+44,50(SP) ; *,OLDSEC 484 
95301 161 MOV QML .REG+42,R1 : 484 
95302¢ ASA R1 
7955 05302. ASR RT 
05305 ASR OR 
05303¢ ASR RY 
95303 ASR sR 
95303 1 BIC #177700,R1 
053040 MOV =—-R1,,40(SP) ; *,OLDCHN 
93 306 1 MOV 1,°(SP) . . 4845 
95305¢ MOV (SP) ,=(SP) ; COMMAND, * 
05 3 MOV ~(SP) > LUN,* 
053062 000056 MOV y =(SP) : PIRGe 
05 3066 MOV : SECTOR,* 
93 507C 0006 JSR 
' )7 4 ADD 
0531 ’ ane |B 
b 1613C0 000050 one -Seomggaaaa ; *,OLDSEC 4848 
ve 
531 MOV O(SP) ,RO ; OLDCHN,* 
0531 161262 MOV  @MIL.REG#+42,R1 
D: ASR R1 
0531 ASR 
9531 ASR 
aH z 
): 
i ASR 
05314 177700 BIC 
531 CMP 
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S 
<4 
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: 3 3 x 
. fa Rats ss 3 
on 6 
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— t vs 3 4 ~S Mme ee INIan 
- & eae ' gS oem wd = me re 
= oy oe ee Se eo oC 
S Ramee nseh 2onSrSvehewereeincssceseoreoy 
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ee we ee Be e 
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oS ve) AA Ss 
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DEFINITION OF OPTION 


UMMM 
= : 
ENSRRNVSH f 
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rear 


wa 
3 






BxaESE 


Ong 
=~ 


yt ty ty tw ty ty ty 


ote ee ee ee ee 


442700 177700 
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000024 32S: 
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DEFINITION OF OPTION 1 


4 0 Pg 


PC, ISOLATE 
#1 ,ERROUT 


@ML .REG+42 ,RO 
Re 

5 

s 

RO 

#177700 ,RO 


RO,-(SP 
SFATIO“ -(SP) 
#2,-(SP5 








14 


#6,SP 
@ML .REG+44 ,24(SP) 
@ML .REG+42 ,,RO 


= 
S: 
S 
“3S 


»REG+44 ,24(SP) 


14(SP),=(SP)__ 
*REG*4S RO 





SP,* 


* ,OLDSEC 


* ,OLDCHN 
COMMAND , * 
LUN,* 


PTR,* 
OLDSEC,* 


* ,OLDSEC 


; OLDCHN,* 


SEQ 0198 


| 
so fer=19 13398762 TOPS 
7-Mar-1982 19:23:44 PA:< 


4928 


terse - — 
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SEQ 0199 


Sar 188 18:88:82 


TOPS 
PA:< 








o> FBR BRS & BM F Fk 
eS &¢ S€éS see EF SB S$ FS B 
cm 
~ 
*. 35 
* « ss e 8 
e es cna e +3 
z & we $5 
aut a | mw aad aad 3) 
- * ee ee % ee %e ee s2 Fe Fe ee ee %e cere ee 
(7) 
wo 
<. 
8 
~ 
oa) 
oo a 
z & 
ood pe 
= ™ fe “ 
. 2 3 : 
ta ~~ > 
= aa: an s¢ 3 = 
Ss Cae lame = Nit rN eo - oe 
= ‘v= 2 3 a = & .. @ 
sant om 8 eo a a tan 7 a. $ 
z Ses & 5. 0 2882 = 85 85 4% os 
7 3-3, 38 Ssomnnslastusshnke Bs 
in Oo--Oams he 25° a~ evn = O. 


3; Routine Size: 
Maximum stack d 
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ee 
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F 16 
PERFORMANCE STEAL ISER MACRO M1113 29-MAR-82 13:41 PAGE 188 
OPTION 


CZ R 
OPT! DEFINITION OF SEQ 0200 


hue ala 13:33°4¢ TOPS-20 Bliss-16 V2(212) 

















"LOOP READ’ (DESCRIBED BELOW) 
OOP) 





TERN [ON L 


wi 


=] 
NOU Wil 


=SSSELERE 


13¢ MLX4 

134 3 DEFINITION OF OPTION 2 7-Mar-1 2:23:44 PA:<NEALE>MLX4.8L1.5 (38) 
8155 ; 4981 Zsbttl “DEFINITION OF OPTION 2° 
$126 : 4 routine OPT2 : novalue = 
ai2e é 2 begin 's 1 * START OF ROUTINE 
159 ; 4985 !++ 
aes 3 ? ROUTINE: OPT2 
ales $ 4 ! PURPOSE: TO CHECK ON DATA RELIABILITY USING THE PATTERNS FROM 
aio? ; 2 THE PATTERN TABLE. 

193 5 rhe THE CODE FOR ‘OPT2" IN BRIEF: 
8167 ; 4998 ! BEGIN 1 (START OF ROUTINE) 
sles s 4994 ! SAY THE ROUTINE IS 

19> : 4995 ! CHOOSE A MAXIMUM PATTERN NUMBER 
8170 ;: 4996 ! INCR COUNT FROM 1 TO (2*MAX 
8171 ; 4997 ! : BEGIN 2 (START OF PATTERN SELECTION LOOP) 
ies ; pha ! =: GENERATE THE PATTERN 

1735 ; 4 ' : INCR LUN FROM O TO LAST 

174; 5000 ! : : BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 

175 ; 5007 ' : : TESTLOO®P: 
at7e $ 3002 ! : : : BEGIN 4 {START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
pA s 2002 ae iv UNIT IS ACTIVE 
8179 : 5005 ! =: : : : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 
8180 ; 53006 ! : : : : INITIALIZE THE WRITE AND READ BUFFER POINTERS 
8181 : 5007 ! : : SECTOR = LOWEST 
8182 ; 5008 ! : ; WHILE SECTOR LEQ HIGHEST DO ; 

1835 ;: 5009 ! BEGIN 6 (START OF SECTOR SELECTION LOOP) 

ae 5 5010 ! CNT 

185 ;: agit str BUFFER POINTERS BEFORE TRANSFER 

189 2 2018 ! RRORS (IF DROP UNIT, LEAVE TESTLOOP) 

3 5014 ! ITE CHECK OR 

189 ; 5015 ! OR READ 

190 ; ani$ ! LEAVE TESTLOOP) 

191 ; 5017 ! RANSFER 

138 3 ans $ NUMBER OF SECTORS IN PREVIOUS TRANSFER 
a3 ; 5019 ! ELECTION LOOP) 

; § 50 ! ACTIVE UNIT) 

196 ; 6 SELECTION LOOP) 

197 ; 50 CK VERI THEN 

a 


UII 


oc 


a Seaton nssnsrsnssesehssistetintnsssemnsseniomniittinsisemnaisstemsisienes ise 
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ION OF OPT SEQ 0201 
MLX4 7=Mar-1982 19:26:4 TOPS=20 Bliss-16 v2(212) 
09 DEFINITION OF OPTION 2 oe at $ 19:53:64 PA: eae ne. ed , 
12 : 30 3 local ' 
14 D 50 e 
15: 5 MAXPAT, 
16 ; 2 OLDSEC, 
13: 5004 ah 
d: 3 ; COMMAND , 
2 ; 3007 DBL_ VALUE; 
; 5045 PRINTB (SAY2, WRD34, RTN2): 
4: 3046 i f2° 
¥. 5067 PATTERN = 0; 
; 3049 if .QUICK neq 0 then MAXPAT = 1 else MAXPAT = NUM_PATS; 
: 5051 iner COUNT from 1 to (.MAXPAT®2) do 
: 505 begin _ !® 2% START OF PATTERN SELECTION LOOP 
ns 505 ELPAT (); | 
8232 ;: 5054 
82 : 5055 if .PATTERN gtr 0 
: 5056 then 
5: 5057 PRINTB (FMT1A, PHR9, .PATTERN) 
; 5058 !*PATTERN NUMBER xx’ . 
; 5059 
3 5060 n 
: 5061 TEMP = -(. PATTERN): 
40: 5062 - PRINTB CFATIB ee TEMP); 
41: 5 TTERN NUMBER = Xk" 
eg s 5064 ‘site 
544: Hae GEN2 (.PATTERN) 
8245 : 20ee . . | 
3 5068 incr LUN from 0 to (.LSUNIT = 1) do 
; 5069 aii ; begin !~ 3 * START OF LOGICAL UNIT SELECTION LOOP 
: 5071 , begin !® 4 * START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT 
; 5078 if .DRIVE_STATUS C.LUN] eql ACTIVE 
: 5075 in 's 5 & START OF TEST FOR AN ACTIVE UNIT 
: 507 LSLUN = .LUN; 
| B on: er 
: 3079 SECTOR = e OuEST: 
: 5081 while .SECTOR Lequ HIGHEST do 
; 5 begin 's 6 * START OF SECTOR SELECTION LOOP 
: § WRDCNT = GET WRDCNT (. SECTOR, HIGHEST): 


5 SET_PTRS ( ? 








=o 
>< 


8308 
331 
3311 
RB 1 
B31 

R314 
3315 
+ 16 
831 

3318 
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eed eed eed amd cok cae ona coal 
MPN = 
BONAULWN Oo 


need) end weed ud cond mac) cond wend mush ond 


uu 


MIMIUIMUUMIUIUILAU 


DEFINITION OF OPTION 2 


LL ,,,,,_ a lesen snansssesnetsssmsmnmsmemmsnemesenes ee —————— 
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7-Mar-1982 19:24:4 
$pomar=1989 19:33:04 
VALUE = write (.LUN, .WRDCNT, .WPTR, .SECTOR); 
1+ 


SEE HOW SUCCESSFUL THE WRITE WAS: 


TOPS=-20 Bliss-16 ee a 
PA:<NEALE>MLX4.B8L1.5 (38) 


selectone .VALUE of 'SEE ‘*SYSERR' FOR DEFINITION 
set 'OF ERROR # CONTAINED IN ‘VALUE' 
begin '® 6A * RETRY ALLOWED 


if RETRY (SIX, write, oLUN, .WRDCNT, .WPTR, .SECTOR) nee 0 
then ITHE RETRY FAILED == SYSTEM FATAL ERROR 


i 
DROPT C.LUN] = CODE_4; 


. 


WH 43 
ce te MSG1, 0); ~“!*e22 OPTION 2 ERROR 01 «««« 
leave LOOP;"  !JUMP JUST BEYOND END OF BLOCK * 4% « 
- end; !e 6A * 
[2] : | 
begin !x 6B * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
WHY DROPT C.LUN] = CODE_5; 
: | feeee OPTION 2 ERROR 02 see 






ERRDF (202, MSGI, 0): 
DODU (.LUNS: 
leave LOOP; ie JUST BEYOND END OF BLOCK * 4 « 
= in ' 6C * FATAL DRIVE ERROR -- NO RETRY au 
peaar (203, MSG1, 0): 'xeee OPTION 2 ERROR 03 seex 
WHY_DROPT f.LUNJ = CODE_6: 
DODD. (.LUN); 
leave LOOP: ' JUMP JUST BEYOND END OF BLOCK * 4 * 
end; tx 6C * 
tes: 


COMMAND = CHOOSE (); 
if .COMMAND eql read 
then 


pogin 
PTR = .RPTR: 
VALUE = read (.LUN, .WRDCNT, .RPTR, .SECTOR): 
e 
else 7 : 
pogin 
PTR = .WPTR: 
VALUE = CHECK (.LUN, .WRDCNT, .WPTR, .SECTOR): 


SEQ 0202 


Ti a ae eta etasasetesssemnsnsmsisetetenenienmeniitisinnienssiemanesisiliises...<shs- 
6 
XERCISER MACRO M1113 29-MAR-82 13:41 PAGE 194 






ZMLBBO PERFORMANCE E 
OPT1 DEFINITION OF OPTION 1 | SEQ 0203 

B320 = MLX4 77-Mar-1982 19:26:4 TOPS-20 Bliss-16 V2(212) 

B321 DEFINITION OF OPTION 2 Spomer= 1985 19:38:4 PA:<NEALEDMLX4.BL1.5 (38) 

3 4 : 5137 end; 

i338 # r 

3326 : 5140 { SEE HOW SUCCESSFUL THE OPERATION WAS: 

B38 ; 514 

8356 ; 125 selectone .VALUE of 'SEE ‘SYSERR’ FOR DEFINITION 

3330 : 164 set 'OF ERROR # CONTAINED IN "VALUE* 

R332 : 3146 C0] : 

8335 ; 514 

8334 : 5148 if .COMMAND eql read 

R335 ; 5149 then 

8336 : 2120 begin 

8338 : 3152 if (DBL_VALUE = DOUBLE_CHECK (.WPTR, .RPTR, .WRDCNT)) neq 0 

R339 : 515 then 

8340 ; 5154 § n 

R341 : 5155 SAYWHO (.LUN); 

53 3 : 5136 PRINTB (SAY1, MSG5); !*ECC LOGIC FAILED TO DETECT DATA ERROR’ 

R343 : 515 PRINTB (FMT12A, ..DBL_VALUE, .DBL_VALUE) ; 

R344 ; 5158 he DATA: XXXXXX AT LOCATION YYYYvyY’ 

R345 ; 5159 DBL VALUE = .DBL_VALUE + BUFSIZ*2; 

R346 : 5160 PRIRTB (FMT12B, ..DBL_VALUE, .DBL VALUE); 

B347 ; 5161 !"BAD DATA: PPPPPP AT LOCATION gaqaaa’ 

R348 : 5162 WHY DROPT C.LUN) = CODE_8; 

3349 ; 2163 ERRDF (204 MSG1, 0); “ !eee OPTION 2 ERROR 04 see 

8351 : 5165 leave LOOP;"! JUMP JUST BEYOND END OF BLOCK * 4 * 

¢: 5166 end; 

R353 ; 5167 

R354 ; 5168 - end; 

R355 ; 2169 

3356 : 5170 (1) : 

335 : gi71 begin !s 6D * RETRY ALLOWED 

B20 3175 if RETRY (SIX, .COMMAND, .LUN, .WRDCNT, .PTR, .SECTOR) neq 0 

$360 317% ean !THE RETRY FAILED -- SYSTEM FATAL E 

R362 : 5176 WHY DROPT C.LUN] = CODE_4; 

336; : 2127 ERRDF (205 MSG1, 0); “~!*eee OPTION 2 ERROR 05 sexe 

3365 ; 3179 seuve LOOP; ° : JUMP JUST BEYOND END OF BLOCK * 4 * 

8367 : ‘set : 

6 ; 1 (2) i eiabet: 

371 : 5189 begin. ot see, i FATAL CONTROLLER ERROR =~ NO RETRY ALLOWED 

8373 : 31 ERRDF (206, MSGI, 0); ~ ° !ee® OPTION 2 ERROR 06 eeee 

R374 : 51 DODU (.LUN); 


EE ei 
Se. ssnses <assussssssntstsssssssunssssusesssuusisisiensmmmserees 
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SEQ 0204 
8376 = MLX6 7=Mar=1982 19:26:46 TOPS=20 Bliss-16 v2(212) 
i377 : DEFINITION OF OPTION 2 Sonera 585 19:53:44 PA: TENEAL EOE 4 BLY afer $8) 
3379 ; 51 Leave LOOP; ' JUMP JUST BEY F 
; 2190 end: a. Oe © Ree 
$ 5191 
; 2198 aa In 6F * FATAL DRIVE ERROR == NO RETRY ALLOWED 
: 519% begin (207 MSGI. 0): * OPTION 2 ERROR 07 see 
: 3199 WHY DROPT FL F.LUN] = CODE 
: 3199 leave ibbp: pean JUST BEYOND END OF BLOCK * 4 « 
: gis end; 'n 6F * 
: 33 [4] : 
; 3201 begin !* 6G * UNRECOVERABLE DATA ERROR 
8395 ; 5 ERRDF "208 MSG2, Ieee OPTION 2 ERROR 08 se: 
R394 : 5 At .LUNJ = OCDE 
R396 : 5 . leave iboPs — JUST BEYOND END OF BLOCK * 4 « 
a597 ; 2 end; '* 66 * | 
$399 j 10 -_ beain '® 6H * RECOVERABLE DATA ERROR 
: 5211 ISOLATE (): 
: 5 18 if .ERROUT then PRINTB (FMT10B, .CHAN): 
aaos : 5215 ae T aQ 
8406 : 5216 OLDSEC = MEL: 
: 5 17 OLDCHN = CHAN: 
: 5219 if RETRY (ONE, .COMMAND, .LUN, .WRDCNT, .PTR. .SECTOR) eal 5 
i ‘a " 
12: 5 if ((.MLEL eql .OLDSEC) and (.CHAN eal .OLDCHN)) 
13 5 i mn“ ” 
cy: Be bain 
16 : 3 36 4 f .ERROUT then ERRHRD (209, MSG4, 0); 'xee® OPTION 2 ERROR 09 exes | 
18 ; 8 UP_HARD_COUNT (.LUN, .BOARD); 
: else 
; 3 i begin 
; 3 if .ERROUT then ERRSOFT (210, MSG3, 0); =! "s#® OPTION 2 ERROR 10 **#e 
: 5235 UP_SOFT_COUNT (.LUN, .BOARD): 
: end 
ore begin 
: 5240 a 





SS — + 
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° DEFINITION OF OPTION 2 $hohar=1983 19:33:44 PA: <NEALE>MLX4.8L1.5 (38) 





FRELLR 
SARA 























: 5 4} if .ERROUT then ERRSOFT (211, MSG3, 0); !**** OPTION 2 ERROR 11 eee 
8437 : 5 rk UP_SOFT_COUNT (.LUN, .BOARD); 
o : : r¢. end: 
8440 : 46 end: in 6H * 
bree: : rth tes; 
Hk: : ; 49 WPTR = .WPTR + (.WRDCNT#2): 
8444 : 50 SECTOR = .SECTOR + (.WRDCNT/256); 
8445 : 3 51 end: i 6 * END OF SECTOR SELECTION LOOP 
8447 : ; 35 end: 's 5 * END OF TEST FOR AN ACTIVE UNIT 
Be rt : 5255 end; '® 4 * END OF TESTLOOP 
8450 3 3 36 end: 'e 3 * END OF LOGICAL UNIT SELECTION LOOP 
8452 : 5258 if .QUICK eql 0 
ote $ 5259 then 
8454 ; ser begin '* 11 * START OF LOOP READING SECTION 
84 : 5 1+4 
re : 3268 ! THIS IS THE "LOOP READ’ SECTION WHICH WAS MENTIONED IN 
8458 : 52646 ! THE DOCUMENTATION AT THE BEGINNING OF THIS ROUTINE. IT 
8459 : 5265 ! IS NOT EXECUTED DURING THE QUICK VERIFY PASS, BUT IT IS 
8460 : 3 66 » | FOR EVERY OTHER PASS THROUGH OPT2. 7 
8462 ; 3268 THE CODE IN BRIEF: 
: 5270 1 BEGIN 11 (START OF LOOP READING SECTION) 
5: 5271 ' INCR LUN FROM 0 T 
: 367 ! : BEGIN 12 (START OF LOGICAL UNIT. SELECTION LOOP) 
67 ;: 527 ! : TESTLOOP2: 
: 5274 ! : : BEGIN 13 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
; 3 2 ee IF UNIT 1S ACTIVE 
: 5 e i : : : BEGIN 14 (START OF TEST FOR AN ACTIVE UNIT) 
: 3 28 Pa INITIALIZE THE WRITE AND READ BUFFER POINTERS 
Ps : $ 3 = 
; 5280 ' : : : WHILE SECTOR LEQ HIGHEST DO 
: 2 s Bea BEGIN. 15 (START OF SECTOR SELECTION LOOP) 
; 5 i : : : : SETUP BUFFER POINTERS BEFORE TRANSFER 
5 5 ; ¢6222 E WHETHER TO WRITE CHECK OR READ 
; 5285 1 : : : : INCR KOUNT FROM 1 TO TI 
: 5 ! : : : : : BEGIN 16 (START OF COUNTING LOOP FOR LOOP READING) 
: 5 ! 3: 3: : : : DO THE WRITE CHECK OR READ : 
: 5 . e282 ES FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP2) 
; 2 bosses: END OF COUNTING LOOP FOR LOOP READING) 
: : : BUFFER POINTERS AFTER TRANSF 
: 3 1 : 2 NUMBER BY # SECTORS IN PREVIOUS TRANSFER 
: 2 ios: :: END SELECTION LOOP) 





Ste neeeeenneeneeseneeeenenenee ee. 
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OPTT DEFINITION OF OPTION 1 SEQ 0206 
8488 :MLX4 7-Mar-1982 19:24:42  TOPS-20 Bliss-16 V2(212) 
8489 ; DEFINITION OF OPTION 2 yoke ma ES 19: 53: 244 PA: <NEALEDMLX4.BLI-5* ( 
8491 : 5293 wr END 14 (END OF TEST FOR AN ACTIVE UNIT) 
8492 : 5 i END 13 (END OF TEST TLOOP2) 
93 : 5295 i? END 12 CEND OF LOGICAL UNIT SELECTION LOOP) 
B69 ; 3 4 END 11 (END OF LOOP READING SECTION) 
8496 : 5298 
97: 5 incr LUN from 0 to (.LSUNIT - 1) do 
8498 ; ; a begin !* 12 * START OF LOGICAL UNIT SELECTION LOOP 
8500 ; 3 : 4 begin !* 13 * START OF THE 2ND LOOP THAT COMPLETELY TESTS 1 UNIT 
850 : 3 4 if -DRIVE_STATUS C.LUN] eql ACTIVE 
P en 
8504 : 3306 begin !% 14 * START OF LOOP THAT TESTS AN ACTIVE UNIT 
Bs 23 LSLUN = .LUN; 
8506 : 5308 WPTR = WBUFF : 
8507 : 5309 RPTR = 
8508 : 5310 SECTOR = e LOUEST: 
8509 ; ani! 
8510 ; 5 1 while .SECTOR Lequ HIGHEST do 
8511 : 531 begin * 15 * START OF SECTOR SELECTION LOOP 
Bie : 5314 WRDCNT = GET WROCNT ‘3 SECTOR HIGHEST); 
8513 ; 5315 SET_PTRS ( C UAB EN 
8514 3 3316 COMMAND = HOOSE "%. 
6 : 5318 incr KOUNT from 1 to TIMES_TO_ LOOP do 
ai 2319 begin !8°16"* START OF COUNTING LOOP FOR LOOP READING 
9: 5321 if .COMMAND eal read : 
. 5322 then : 
1: 5323 begin 
. : 5326 PT oRPTR; 
: 3389 VALUE = read (. LUN, .WRDCNT, .RPTR, .SECTOR); 
4; 5326 end 
5; 5327 else 
: ; 5328 pegin 
: 5329 PTR = .WPTR: 
8; 23 ! VALUE = CHECK (.LUN, .WRDCNT, .WPTR, .SECTOR): 
; 2338 : i 
: 3 / | SEE HOW SUCCESSFUL THE OPERATION WAS: 
5 : Z selectone .VALUE of 'SEE ‘SYSERR' FOR , DEFINITION 
: 2 set 'OF ERROR # CONTAINED IN "VALUE® 
; 3 0 | (0) : 
$40 i 3 g if. .COMMAND eql read 
8542 : 5344 “begin 
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CZ™LBBO PERFORMAN 
OPT? DEFINITION OF OPTION 1 SEQ 0207 
8544 ;MLX4 27-Mar-1982 19:24:42 fOPS-20 Bliss=-16 V2(2123 
Set? ; DEFINITION OF OPTION 2 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.8L1.5 (38) 
8547 ; 334? ; 
8548 ; 5 $ if (DBL_VALUE = DOUBLE_CHECK (.WPTR, .RPTR, .WRDCNT)) neq 0 
8549 ; 534 then — 
8550 ; 5348 gin 
8551 ;: 5349 SAYWHO (.LUN); 
e226 s 5350 PRINTB (SAY1, MSG5); 
553; 5351 '*ECC LOGIC FAILED TO DETECT DATA ERROR‘ 
8554 ; 5 36 PRINTB (FMT12A, ..DBL_VALUE, . ; 
S222 : 535 1°G DATA: XXXXRX AT LOCATION YYYYYY' 
328 ° 5354 DBL_VALUE = .DBL_VAL + BUFSIZ*2; 
8557 ; aae7 PRINTB (FMT12B, ..DBL_VALUE, .DBL VALUE); 
8558 ; 5356 7 A: PPPPPP AT LOCATION Q0000Q' 
8559 ; 5357 WHY DROPT C.LUN] = CODE_8; : 
8560 ; 5358 ERRDF (212 MSG1, 0); !seee OPTION 2 ERROR 12 xee« 
8561 ; 5359 DODU (. : 
8562 ; 5360 leave LOOP2; !JUMP JUST BEYOND END OF BLOCK * 4 * 
Beer ° Bd end; 
565 ; 3308 end; 
566 ; 5564 
567 ; 5365 3, 
re ; 2306 begin '* 16A * RETRY ALLOWED 
255 5 5368 if RETRY (SIX, .COMMAND, eLUN, .WRDCN;, .PTR, .SECTOR) neq 0 
o35) s 2397 then !THE RETRY FAILED -- SYSTEM FATAL ERROR 
5 egin 
8573 : $371 WHY DROPT_C.LUN] = CODE_4; 
574 ; 3378 ERRDF (213 MSG1, 0): !xeak OPTION 2 ERROR 13 «xxx 
575 : 537 DODU (. : 
576; 5374 leave LOOP2: !JUMP JUST BEYOND END OF BLOCK * 13 « 
77: 5375 end; 
78 ; 5376 
79 ; 5377 end: ‘x 16A * 
5 ? ; 5378 
581 ; 5379 2 ee 
5 $ 5 5380 seers 'x 16B * FATAL CONTROLLER ERROR -= NO RETRY ALLOWED 
2 ; 23 1 WHY DROPT C.LUN) = CODE_5; 
; : 2386 aa MSG1, 0); !xaexe OPTION 2 ERROR 14 xx«« 
3 3 5384 leave LOOP2: !JUMP JUST BEYOND END OF BLOCK * 13 * 
587 ; $386 end; 'x 168 * 
389 § 2 He i: ae 
; 5388 pegin 'w 1€¢ * FATAL DRIVE ERROR -- NO RETRY ALLOWED 
591 ;: 5389 ERRDF (215, MSGi, 0): ines OPTION 2 ERROR 15 xax« 
592 : 3 90 WHY DROPT £.LUN] = CODE_6: 
593; 391 DODD ¢<.LUN): 
594 ;: 2396 leave LOOP2: ' JUMP JUST BEYOND END OF BLOCK * 13 * 
596 ; 333 end: '* 16C * 
597 ; 335 [4] : 
598 ; 96 begin 'x 16D * UNRECOVERABLE DATA ERROR 


re ne ae ee tit - 


einem nisin pen eeeetenseenpepenitsenessinesionidsinemeesesemesnntemeresecemeees- ce... 
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8600 ;MLX4 27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212) 
8601 : DEFINITION OF OPTION 2 57-Mar-1982 19:23:44 PA: <NEALEMLX4.BLI-S (38) 
8603 : 5397 ISOLATE (): | 
8604 : 5398 ERRDF (216. MSG2. 0): inex OPTION 2 ERROR 16 see | 
8605 : 5399 WHY DROPT £.LUN) = CODE_7; | 
8606 ; 5400 DODD ¢.LUN): | 
8607 : 5401 leave LOOP2: !JUMP JUST BEYOND END OF BLOCK * 13 « | 
8608 ; 270 end; 'x 16D * | 
8610 ; 5404 CS}: 
ry : 5405 vegin 'x 16E * RECOVERABLE DATA ERROR 
le : 406 ISOLATE (): 
8613 ; 5407 | 
6614 : 5408 if .ERROUT then PRINTB (FMT10B, .CHAN): '" ~~ BIT aa" 
8615 ; 5409 
8616 : 5410 OLDSEC = .MLEL: 
oete : ei) OLDCHN = . : 
8619 : e418 if RETRY (ONE, .COMMAND, .LUN, .WRDCNT, .PTR, .SECTOR) eql 5 
Bei - 
86 ‘ : 5416 if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
8625 ; 5417 then 
8624 ; 5418 begin 
8625 : 5479 
56 § : 2430 if .ERROUT then ERRHRD (217, MSG4, 0): | 
8628 : 5492 teas OPTION 2 ERROR 17 exes | 
8629 : 3425 UP_HARD_COUNT (.LUN, .BOARD): ) 
0; 5424 end 
am 5425 else 
1: beat 
86 4 : 3428 if .ERROUT then ERRSOFT (218, MSG3, 0): 
fe : 5430 | !xee OPTION 2 ERROR 18 exe | 
86 7: 5431 UP_SOFT_COUNT (.LUN, .BOARD): 
3 5432 end 
8639 : 5433 
8640 ; 5434 else 
Bee. ; ote? begin 
3648 : 2437 if .ERROUT then ERRSOFT (219, MSG3, 0); !**** OPTION 2 ERROR 19 xxx 
8645 : 5439 UP_SOFT_COUNT (.LUN, .BOARD): 
$ 5 5440 end: 
; 5441 
3 : a2 . 0M '® 16E * 
50 : 544% eon 
SI; 3445 end: !* 16 * END OF COUNTING LOOP FOR LOOP READING 
8658 : 544 WPTR = .WPTR + (.WRDCNT*2): 
54; 5448 SECTOR = .SECTOR + (.WRDCNT/256): 


eS ee re Ee ee 
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8656 ;MLX4 27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212) 
8657 ; DEFINITION OF OPTION 2 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.BL1.5 (38) 
8659 : 3768 end; ‘* 15 * END OF SECTOR SELECTION LOOP 
8661 : 5451 end; 'x 14 * END OF TEST FOR AN ACTIVE UNIT 
8665 545 + Pal 
8664 ; 5454 ; Test to see if this uut's address space is 
8665 ; 5455 : to be read for soft errors. This test is 
5006 $ 5456 _ 1s intended for DMT purposes. 
Be He j 
ry : 5459 if .EFN$21 ‘Is the background pattern to be read 
8670 ; 5460 then 
8671 ; 5461 begin 
867? ; 5462 
8673 ; 5463! ' 
8674 ; 5464 ! version czmlbb changed incr to incru 
8675 ; 5465 |! 
sor8 s 3708 incru SECTOR from LOWEST to HIGHEST do 
78: 468 } if read (.LUN, 256, RBUFF, .SECTOR) eql 5 
8679 ; 5469 then 
£680 ; 5470 pegin : ahs a 
pred ; ano) ISOLATE (); !Find the failing bank and board no. 
568s : ao? if .ERROUT then PRINTB (FMT10B, - CHAN); 
is : 3422 Print where the error is 
: 5477 ' Save the contents of the ML error location 
$ 5478 | : register so we can compare it to the new 
; 5479 : contents of this register after the retry. 
es : sree This is done to classify the error. 
9 : 5482 OLDSEC = .MLEL: 
95 ; 5485 OLDCHN = .CHAN; 
94 ; 5484 : 
95 ; 5485 : Do a classify retry call. If the same error 
36 ; 5486 : occures then classify it as a hard error. If 
97; 5487 : a different error occured or the error went away 
os : 5488 ! then classify it as a soft error. 
: 3250 , 
701 : 5491 if RETRY (ONE, .COMMAND, .LUN, 256, .PTR, .OLDSEC) egl 5 
mi 6 OU pe 
704 : 5494 ' The same error occured so see if it is at the same 
5; 5495 - sector and channel number, if so then classify 
; 54 ! it as a hard error else classiy it as a soft 
: 549 ! error. 
3 , 
710 : 5500 if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
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SEQ 0210 


St StS ssl lensstnt-sonnet-steeeena 


8712 ;MLX4 27-Mar-1982 19:24:42 TOPS=20 Bliss-16 V2(212) 
Tae, ; DEFINITION OF OPTION 2 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.BL1.5 (38) 
8715 ; 5501 then | 
1a. : 320 begin ‘Same error occured ‘hard' 
£718 : 5504 if .ERROUT ‘!Print error if enabled 
719 ; 5505 then | 
720 ; s209 pegin 
as! : P 550 ERRHRD (220, ‘Error number 
87 ¢ ; P 5508 - .. . !€rror message 
8725 ; 5509 0); !Additional message routine 
8724 ; 5510 end; 
8725 ; 5511 : 
87 : ; 3216 UP_HARD_COUNT (.LUN, .BOARD): 
8727 ; 551 end 
8728 ; 5514 se 
te 9; $312 begin ‘Not the same error ‘soft' 
8731 ; 2218 if .ERROUT '!Print error if enabled 
87 § ; 5518 then | 
of ; 5519 begin 
; P 5520 ERRSOFT (221, ‘Error number 
8735 ; P 5521 ¢ ..,., ‘Error message 
8736 ; 5522 0); !Additional message routine 
fof $ 5525 end; 
738 ; 5524 
8739 ; 5525 UP_SOFT_COUNT (.LUN, .BOARD): 
8740 ; 5526 end 
741 ; 5527 
742 ; 5528 else ‘Not the same error ‘soft’ 
743 ; 2267 begin 
744 ; 5530 
745; 5531 if .ERROUT 'Print error if enabled 
746 ; 2236 then 
747 ; o2¢ begin 
748 ; P 5534 ERRSOFT (222, ‘Error number 
749 ; P 233? MSGS, ‘Error message 
750 ; 55 § 0); ‘Additional message routine 
751 ; 553 end; 
526 3 o2e6 
753 ; 5539 UP_SOFT_COUNT (.LUN, .BOARD); 
754 ; 5540 end: 
ai ORE 
Py end; 
7? $ 5 2278 | 
758 ; 5544 end; 
759 ; $222 
760 ; 546 end; ‘x 13 * END OF TESTLOOP2 
oe) 3 2248 end; '* 12 * END OF LOGICAL UNIT SELECTION LOOP 
‘ ; 3550 end; :* 11 * END OF LOOP READING SECTION 
765 ;: 551 end; !e 2 * END OF PATTERN SELECTION LOOP 
8766 ; 5552 
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8768 ;MLX4 
a 
8771 ;: 5553 
8772 : 5554 
8777 054054 004167 
Bree peceee 162706 
ey, 37088 012746 
8784 054070 012746 
54074 3. 746 
786 054100 012746 
54104 01 
8788 0541 104414 
05411 o2967 
8 054114 5767 
0541 001403 
3! HE 
8794 0541 gi270 
541 010566 
Relay 366 
4144 908 
054150 16 
054154 767 
54160 5767 
54164 3413 
37196 16746 
BE Ree 12746 
3 & rth 012746 
Oe¢ 16660 
y. 5421 neeei? 
1 17 
54214 na766 
2 : 466 
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wd end emd ced 


o-, 
rs 
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Win 
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DEFINITION OF OPTION 2 


return; 


131254 
9000 


000034 


000034 


OPT2: 


4$: 


5$: 


6$: 


e. _ 9 
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JSR SA 
SUB 6,SP 

MOV #RTN2,~(SP) 
MOV D34,-(SP) 
MOV #SAY2,-(SP) 
MOV #3,-(SP) 

MOV SP,RO 

TRAP ‘14 

CLR PATTERN 

TST QUICK 

BEQ 1 

MOV #1,R5 

BR $ 

MOV 2,R5 

MOV R5, 32(SP) 
ASL (SP) 

CLR 30 (SP) 

JMP 4$ 

JSR PC, SELPAT 
TST PATTERN 

BLE 4$ 

MOV PATTERN, ~(SP) 
MOV APHRO, (SP) 
MOV #FMT1A, -(SP) 
MOV (SP) 
MOV : 

TRAP ‘14 

BR 5$ 

MOV PATTERN, 34 (SP) 
NEG 34 (SP) 

MOV  34(SP).-(SP) 
MOV _- 

MOV #FMT1B,-(SP) 
MOV #3,-(SP) 

MOV ‘ 

TRAP 14° 

MOV PATTERN, (SP) 
JSR GEN 

MOV LSUNIT, 34 (SP) 
CLR 5 

JMP 33$ 

MOV R5.RO 


27-Mar-1982 19: 
27-Mar-1982 1 


PA:<NEALE>MLX4.BL1.5 (¢ 


:* 1 * END OF ROUTINE 


-SBTTL OPT2 DEFINITION OF OPTION 2 
R1,$SAVE5 


SP,* 


* ,MAXPAT 


: *,MAXPAT 
s MAXPAT,* 


COUNT 


LUN | 
LUN,* 


SEQ 0211 


2:24:42 TOPS- iss-1 
gh: h¢ 20 Bliss-16 V2(21 . 
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034442 
177770 
000001 
130022 
000010 
125524 


12670 
22670 


034460 
034500 


034500 
172562 


172506 


156234 
170762 
000001 


000006 
045424 
156176 


171524 
000014 
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1563 
15 


12 


6306 


000004 034446 


sMLX4 


7$: 


DEFINITION OF OPTION 2 


R 
#DRIVE.STATUS.RO 
RO,-(SP) 
R5,-(SP) 
#177770, (SP) 
#1,-(SP5 
-(§P) 

PC ,BL$GT2 
#10,SP 


yg ehh: 


1) ,R4 
R4, TOP. SECT(R1) 
118 

R4,-(SP) 

TOP. SECT(R1),-(SP) 
PC.GET.WRDCNT 

R2, (SP) 

PC. SET.PTRS 

RS, (SP) 

R2,-(SP) 


12 
get . PROP (RS? 


311 
MSG1 


R5 RO 
51 


Ee ee —-- 
— — - ——--— 


LUN, * 


LUN,* 


LUN, * 


s *, SECTOR 
: SECTOR,* 


SECTOR,* 


: *,WRDCNT 
¢ WRDCNT,* 


: LUN,* 
; WRDCNT,* 


SECTOR,* 


: *,VALUE 
> VALUE,* 


: LUN,* 
; WRDCNT,* 


SECTOR,* 


* ,* (LUN) 


LUN, * 


; 


SEQ 0212 


7-Mar=1982 19:26:42 
7-Mar-1982 19:23:44 


TOPS 
PA:< — 


ee 
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cond omb nds 
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000002 
000005 


000003 


000006 


000012 
171336 
000034 
000940 
045612 
000040 
156014 
156002 
170714 
155764 


155752 
171054 


000001 


155724 
155722 


167350 


Sensei 
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034446 


000036 13$: 


148: 


000050 


DEFINITION OF OPTION 2 


10$ 
R342 
#5 , WHY .DROPT (RS) 


#6,WHY .DROPT(R5) 
R5,RO 


#12,SP 
15$ 

PC CHOOSE 
RO,34(SP) 
40(SP) 

Re MREAD 
40(SP) 
RPTR,36(SP) 
R5,~(SP) 
R2,-(SP) 
ial al 


= 
e 


14 
WPTR,36(SP) 
R5.~(SP) 
R2,-(SP) 


#1,50(SP) 
17$ 


WPTR,~(SP) 
RPTR,~(SP) 


R2,~(SP) 
Beep eee @ CHECK 


RO.60(SP) 
178 


; VALUE ,* 


*,* (LUN) 


LUN,* 


> VALUE, * 


* , * (LUN) 
LUN,* 


* , COMMAND 
COMMAND , * 


> *,PTR 


LUN, * 
WRDCNT ,* 
SECTOR, * 


*,PTR 


LUN,* 
; WRDCNT,* 


SECTOR,* 
* , VALUE 


WRDCNT,* 


* ,DBL.VALUE 


il 


7-Mar-1982 19: 
7-Mar-1982 19: 


24:42 
23:44 


SEQ 0213 
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ooQ 
= 
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sek 
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SES AR 
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vy =~ 
Sasaaak 
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“VW 


OWS 
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000044 
000001 
000006 
000046 
000056 
171044 
000014 


000520 
000004 


000002 


000074 


034446 


034446 





sMLX4 


15$: 
16$: 


17$: 
18$: 


19$: 
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R5.~(SP) 
#MSG5, (SP) 
#SAY1.-(SP) 
#2,-(§P) 


14 
66(SP) , (SP) 
966 (SP) ,-(SP) 
#FMT12A.-(SP) 
#3,-(SP) 
SP,RO 
#10000, 74(SP) 
74(SP) . (SP) 
a74 (SP) ,-(SP) 


LLL 
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Se st penn “ o— — 
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SEQ 0214 
7-Mar-1982 19:24:42 TOPS 
ooomera19 19:23:44 PA:< 
>; LUN,* 5155 
3 5156 | 
: SP,* | 
; DBL.VALUE,* 5157 | 
DBL.VALUE,* : 
: sp. | 
: *,DBL. VALUE 5159 | 
: DBL.VALUE,* 5160 
: DBL.VALUE,* 
; SP,« 
3 *,* (LUN) 5162 
: a | 
| 
; LUN,* 5164 
; 5165 
3: VALUE,* 5143 
; $173 
3; COMMAND, * 
; LUN,* 
> WRDCNT,* | 
; PTR,* 
: SECTOR,* | 
| 
3 *,* (LUN) 5176 
: 5177 
> LUN,* 5178 | 
. 5179 | 
: VALUE,* 


LLL LL A EE ee Meet att tn 
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DEFINITION OF OPTION SEQ 0215 
oo38 sMALX4 27-Mar-1982 19:24:42 TOPS 
8995 : DEFINITION OF OPTION 2 27-Mar-1982 19:23:44 PA:< 
8995 1 765 000005 034446 MOVB #5,WHY.DROPT(RS) > *,*(LUN) 5186 
8996 104455 TRAP =‘ 555 : 5187 

.WORD 316 
899 -WORD MSGI : 
8 -WORD 0 

MOV ~—SsaRS.RO > LUN,* 5188 | 

3002 — i. 5189 | 

$008 000003 20S: CMP R3,43 > VALUE, * 5143 

9005 TRAP 55 : 5194 

.WORD 317 
.WORD  MSG1 
“WORD 0 
000006 034446 MOVB $#6,WHY.DROPT(RS) : *,*(LUN) 5195 

9010 MOV R5S.R : LUN,* 5196 

9011 TRAP =‘ 

9012 16 BR 22$ : 5197 
1 000004 21$: CMP R346 > VALUE, * 5143 
14 0 BNE 24$ 
15 67 162014 JSR PC, ISOLATE : 5202 

9016 RAP § : 5203 
1 22 32 -WORD 320 

9018 111 -WORD MSG2 

901 55 -WORD 0 
0 055 000007 034446 MOVB #7,WHY.DROPT(RS) : *,%(LUN) 5204 

90 : 3 MOV 5°RO : LUN,* 5205 

5 000022 22$: ADD #22,SP ; 5206 

Sih 2 406 23$:  JMP 32$ 

90 000005 24$: cop R3.A5 : VALUE, * 5143 

we 

> $ 161750 JSR PC, iSOLATE : 5211 

000001 124670 BIT #1 ,ERROUT : 5213 

157012 MOV AML .REG+42,R0 

9031 ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

ASR RO 

177700 BIC #177700,R0 

MOV RO,-(SP 

; 640 MOV #FMT10B,-(SP) 

5 002 MOV #2,-(SP5 | 

TRAP” es : 

; 4 706 ADD #6,SP | 

044 055440 7 790006 000052 25$: MoV AML .REG+44,52(SP) : *, OLDSEC 5216 

9045 33446 17 156736 MOV @ML .REG+42.RO : $217 

9046 05545 ASR RO 
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9048 
9049 
9081 055454 
905¢ 322 
3084 osscee 
9055 055464 
9096 095466 
9057 0554 
$039 0585 
$e ay 
9062 05551 
59916 
9066 338 
9067 0555 
ci 55544 
0 05554 
71 05555 
re a 
73 05556 
74 05556 
9075 055564 
9076 0555 
5008 ossar 
9075 He 
9081 5 
5085 5861 
908 ; 14 
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9086 ; 6 
2085 0 
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46 


© 
rs 
AAA 


2 
_— Nm 
BREA 
FEANELS 


oo 
—— 


oooo 
oooon 


Mrorn 


Shorr 
Ss 


So 
RSseR 
O— 

o 


Woe 
ARNO 









_ 
— 
rp oh 


NEN 
AM 


SUINOANOAOO 


ie 
mu 


S=aSo 


™ 


156650 
000054 
156632 


177700 


000001 
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000052 


124450 


124414 


124372 


sMLX4 


26$: 


27$: 


28$: 


DEFINITION OF OPTION 2 


R 
#177700,R0 
RO,54(SP) 


#1,-(SP) 
46(SP) ,-(SP) 
R5.~-(SP) 
R2,-(SP) 
36(SP) ,-(SP) 
R4,-(SP) 


PC RETRY 
#14,SP 
RO.A5 


28 
@ML .REG+44 ,52(SP) 


54(SP) ,-(SP) 


@ML .REG+42,R0 


R 
#177700,R0 
RO, (SP)+ 


#1, ERROUT 
26$ 


R5,~(SP) 
(SP) 


PC .UP.HARD. COUNT 


Spee OUT 


1 


eee scusetastesieneenensneeteeneenmmemennemeeeeemeence. 


* ,OLDCHN 
COMMAND , * 
LUN, * 
WRDCNT,* 
PTR,* 
SECTOR,* 


* ,OLDSEC 
OLDCHN, * 


LUN, * 


-_——- 


SEQ 0216 
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000034 


32$: 
33$: 


34$: 
35$: 


36$: 


37$: 
38$: 


39$: 


DEFINITION OF OPTION 2 


0 

R5,~(SP) 

BOARD ,~(SP) 

PC ,UP.SOFT.COUNT 
(SP)+, (SP)+ 


Re 
34$ 


QUICK 
35$ 


73$ 

LSUNIT ,34(SP) 

R5 

72$ 

R5 RO 

RO 

RO 

RO 

#DRIVE .STATUS RO 
RO,~(SP) 


34(SP) 


R5.-(SP) 
#177770, (SP) 
#1,-(SP5 
PC BL$GT2 
0,SP 


LOW. SECT(R1) R46 
R4. TOP. SECT(R1) 
37$ 

R4,-(SP) 

TOP. SECT(R1) .-(SP) 
PC ,GET.WRDCNT 


LUN,* 


WRDCNT,* 


WRDCNT,* 


SECTOR,* 
* , SECTOR 


LUN 
LUN, * 


LUN 
LUN,* 


LUN,* 


LUN,* 


; *, SECTOR 


s SECTOR,* 


SECTOR,* 


~ rr eee 
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Gore er Tarr son OF Ob Tio 2 SEQ 0218 
-MLX4 27-Mar-1982 19:24:42 Tops 
Stes —_ DEFINITION OF OPTION 2 27-Mar-1982 19:23:44  PA:< 
916 | 
316 O36 07 trates nO RD cep) : URDONT 5315 
3186 pecice Oe 6 70760 JSR PC-SET.PTRS 
108 Ose] eo 150 SR PC” CHOOSE :; 5316 
ae 12 fe; sooo HOV RO.26(SP) > *, COMMAND 
$188 et it 66 nitdina 000032 ie MOV #1 32(SP) 3 *SKOUNT 531 
4 4 P4 ° 
3190 3 174 sé $0086 045612 CMP 26 (SP) ,#READ > COMMAND, * 
Sh BER? BSN? ona on is a 
3198 56210 016766 eceke 000030 MOV RETR. 30 (SP) ; * PIR 5324 
B19 oees3 b103¢e MOV R2,-(SP) > WRDCNT,* 
315% oe 16746 154444 MOV RPTR,~(SP) 
3159 bee 1944 MOV R4,-(SP) : SECTOR.* 
SiS BE art t7as e a 
31 56 16766 154426 000030 41$: MOV PTR, 30(SP) ; * PIR 532 
3183 30 46 broods MOV R2.~(SP) : WRDCNT, * 
31 3 8 bleeds MOV WPTR,-(SP) 
3182 oee5e 61  Bepsgaa MOV R4,-(SP) : SECTOR,* 
9184 056254 01044 RG (SP) 
9185 05625 767 167516 JSR CCH pep ne 
31 56360 Ove — 2 oe oo 5337 
3) 66 32766 000001 000034 81 I i g34(SP) : 
2185 5 é 1334 54366 MOV WPTR,~(SP) : 5346 
3] a6) eres | 366 MOV RPTR.=(SP) 
$192 330 i 78 _ MOV R2,-(SP) : WRDCNT,* 
198 531( 67 166012 JSR BC DOUBLE . CHECK 
$194 O56314 es: Rn > -Saiecieace 
3198 835 08; BoV aS -(SP) : LUN,* 5349 
1 5330 79 157170 JSR. ° SAYWHO ai 
3198 56334 012716 011216 MOV WiSGS. (SP) : 
5340 01 746 007072 MOV MSAYT = 
SH eee Slee 0 mos Lt. 
363 16 1 alla : DBL. VALUE, * 5352 
cee mie, Samus 
yar 1 re 10 MOV HEMT 12A,~(SP) 
e374 12746 000003 nov. sPsA0. =i 
26 46 0000 : *, DBL. VALUE 5354 
. 18 $0 — MOV S6(SP) CSP) ; DBL.VALUE,* $355 
2 05¢ 17646 MOV @66(SP5,-(SP) : DBL.VALUE.* 
y. 1274 6 MOV #FMT12B.-(SP) 
3 15946 0 MOV #3,-(SP5 
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OPT2 DEFINITION OF 





EEE: 


N 1 
EXERCISER MACRO M1113 29-MAR-82 13:41 P 7 
OPT ION * ss 





, 


a 
104451 


VUES 
SVC 


SANROSEN 


NOULSUIN =O OONOULWAO 





DOO ODO0000000000000.0000000 00000 
MUIVNAAAAANN ELSES RREE EE 


PRAHA AC 
=a") 


re) 
Sos 





m0 
SES 

WICn 

Vide 


_ 
On 
os 


oeed eed eed eed ed eed + 
SSRNSRSSE 
ye oe oe —OWU©O 
DROaWNORS 


Wr 
ons 
oS 


7 

ewe 
Rus- 
r~ 
wa 
Ww 


000010 034446 


000036 
000001 
000006 
000040 
000050 


167506 
000014 


00520 


0 
000004 034446 


000002 


000005 034446 


000003 


000006 034446 


sMLX4 


43$: 


44$: 
45$: 


46S: 


47$: 


DEFINITION OF OPTION 2 


a -RO 
#10 ,WHY .DROPT<RS) 


#6,-(SP) 
40(SP) ,=(SP) 
R5,-(SP) 
R2.-(SP) 
50(SP),-(SP) 
R4,-(SP) 
PC-RETRY 
#14,SP 

RO 

45$ 
58$ 

#4 WHY .DROPT (RS) 


#6, WHY .DROPT(R5) 
R5 RO 

51 

49$ 


SP,* 
* , * (LUN) 


LUN,* 


; VALUE,* 


COMMAND , * 
LUN,* 
WRDCNT ,* 
PTR,* 
SECTOR,* 


* ,* (LUN) 


LUN,* 


> VALUE, * 


* ,* (LUN) 


LUN,* 


VALUE , * 


*,* (LUN) 
LUN,* 


$f —fer=198 
7-Mar-19 


19:24:42 
19:23:44 


SEQ 0219 


TOPS | 
PA:< | 


LS et i ee i ee cen a 


 .- 


LL LL ees enthststsssssaeseessasenssusssssssunsssemnstemmseereseesees-—--... TE ee ea 


S 2 
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EXE 
DEFINITION OF OPTION 







SEQ 0220 
927 ZMLX4 27-Mar-1982 19:24:42 TOPS 
$678 : DEFINITION OF OPTION 2 27-Mar-1982 19:23:44 PA:< 
9275 056642 020327 000004 48$: CMP R344 : VALUE,* 5337 
9276 05 1017 BNE 1 
9277 50 767 160456 JSR PC, ISOLATE : 5397 
28 56654 104455 TRAP =s-:«555 : 5398 
9279 056656 000330 -WORD 330 
9280 O3sser 011120 = WORD MSG2 
9 82 26664 112765 000007 034446 MOVB #7,WHY.DROPT(RS) : *,* (LUN) 5399 
9283 056672 01 300 MOV R5,RO 3 LUN,* 5400 
GS Scere dezree ono, = agg: IH so 
Soke Sscnos Seorer Sots = Sot: 
9 56706 020327 000005 51$: CMP R3,45 ; VALUE,* 5337 
88 0 71 901157 BNE 58$ 
9289 056714 767 160412 JSR PC, ISOLATE ; 5406 
9 50720 032767 000001 123332 BIT #1, ERROUT ; 5408 
9291 056726 001423 BEQ 
9292 056730 017700 155454 MOV @ML .REG+42,R0 
9293 056 006 00 ASR RO 
9 56 ASR RO 
9295 056740 006200 ASR RO 
9296 056742 0062 ASR RO 
9297 056744 906200 ASR RO 
9298 05674 00 ASR RO 
9 56750 042700 177700 ‘BIC #177700,R0 
930C 056734 010046 MOV RO,-(SP 
9301 3675 012746 004640 MOV #FMT108,-(SP) 
9302 036762 016746 050002 MOV =. #2, = (SPJ 
93¢ 36766 010600 MOV SP.RO : SP,* 
93¢ 36770 104414 TRAP = ‘14 
9305 05677 062706 000006 ADD #6,SP 
930 36776 17766 155410 000044 52$: MoV AML .REG+44 44 (SP) : *, OLDSEC 5410 
930 2 004 017700 155400 MOV aML .REG+42,R0 : 5411 
9308 05701 & ASR RO 
9309 05701 ASR RO 
9310 057014 006200 ASR RO 
9311 05701 00 ASR RO 
9 12 7 0 ASR RO 
9313 057 00 ASR RO 
9314 057 04 177700 BIC #177700,R0 
9319 37 1 6 MOV RO, 46(SP) : *,OLDCHN 
16 7 12746 1 MOV #1,-(SP) : 5413 
17 057040 016646 000040 MOV 40(SP) ,-(SP) i COMMAND,* 
18 7044 010546 MOV R5,-(SP) 3 LUN,* 
7 6 10246 MOV R2,~(SP) -¢ WRDCNT, * 
0 057 16646 000050 MOV 50(SP) ,-(SP) 3 PTR,* 
932 7054 010446 MOV R4,-/SP) = SECTOR,* 
¥ 705 767 167142 JSR PC RETRY 
2 7 14 ADD #14,SP 
i 5 CMP RO.#5 
9325 05 1 BNE 
9326 05707 66 155312 000044 CMP AML .REG+44.44(SP) : *, OLDSEC 5416 


Ee 








tL ee ek 
_——— —_— A 
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OPT2 DEFINITICN OF OPTION 2 SEQ 0221 
9328 =MLX4 27-Mar-1982 19:24:42 Tops 
$355 ; DEFINITION OF OPTION 2 27-Mar-1982 19:23:44 PA:< 
9331 057102 091034 BNE 54$ | 
33 é eat 016646 000046 MOV 46(SP) ,-(SP) : OLDCHN,* 
9 097110 O17 155274 MOV AML .REG+42,R0 
9 57114 00 ASR RO 
9335 057116 006200 ASR RO 
9 57120 006200 ASR RO 
9337 057122 006200 ASR RO 
9338 057124 GO ASR RO 
9339 0571 00 ASR RO 
9340 057130 04 177700 BIC #177700,R0 
9341 0971 020026 CMP RO, (SP)+ 
9 : 57136 00101 BNE 4 
9 057140 032767 000001 123112 BIT #1, ERROUT : 5420 
9 057146 404 BEQ 53$ 
9345 057150 104456 TRAP 56 
9346 57152 000331 -WORD 331 
9 57154 011202 .WORD MSG4 
9 57156 .WORD 0 
9 37160 010546 53$: MOV R5,-(SP) : LUN,* 5423 
9350 057162 016746 155154 MOV BOARD ,-(SP) 
9 057166 004767 160230 JSR PC .UP.HARD. COUNT 
9 571 0426 BR : 5416 
9 57174 032767 000001 123056 54$:  &BIT #1, ERROUT ; 5428 
57202 001415 BEQ 56$ 
372 104457 TRAP ‘57 
057 000332 .WORD 332 
57210 011166 .WORD MSG3 
57212 000000 .WORD 0 | 
57214 000410 BR 56$ : 5431 
057216 032767 000001 123034 55$: BIT #1, ERROUT : 5437 
57224 001404 BEQ 56$ 
57226 104457 TRAP 57 
57 : 333 -WORD 333 
57 11166 .WORD MSG3 
37 000000 .WORD 0 
7 010546 56$: MOV RS,-(SP) : LUN,* 5439 
57240 016746 155076 MOV BOARD ,-(SP) 
57244 767 160634 JSR PC,UP.SOFT.COUNT 
57 38 6 57$: CMP (SP)+, (SP)+ : 5405 
725 000010 58$: ADD #10.SP : 53 
7 00032 INC 32(SP) - : KOUNT 53 
7 032 000002 CMP 32(SP) #2 : KOUNT,* 
BGT 59$ 
7 176672 JMP 40$ 
32 59$: MOV R2.RO : WRDCNT,« 5447 
57 153362 ADD WPTR,RO 
37 153356 MOV RO,WPTR | 
af ™ Mov Re.(SP) : WRDCNT,* 5448 | 
37 990800 JSR PC BLSDIV 
? ADD R4-RO : SECTOR, * 





Oe 





Ee ee ee ee ee ee 
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C2MLBB 
OPT2 DEFINITION OF OPTION SEQ 0222 
9 ZMLX4 27-Mar-1982 19:24:42 TOPS 
| 3385 $ DEFINITION OF OPTION 2 27-Mar-19 19:23:44 PA:< — 
9387 019004 MOV RO.R4 ; *, SECTOR | 
9 000006 ADD #6. SP : 5313 
9389 167 176562 JMP 39 : 5312 | 
9390 032767 000001 122714 60S: BIT #1 .EFNS21 : 5459 | 
9 32 goo167 000430 JMP 71$ 
939 0105 61$: R5,RO : LUN,* 5466 
9394 006300 ASL 
9395 1 034500 000026 MOV TOP. SECT(RO) .26(SP) 
9 3% 16001 034460 MOV LOW. SECT(RO)-R1 : *, SECTOR 
939 BR 70$ 
9398 10546 62$: MOV R5.-(SP) : LUN,* 5468 
9399 012746 000400 MOV #400,-(SP) 
9400 12746 022670 MOV #RBUFF , (SP) 
9401 10146 MOV R1,=(SP) : SECTOR,* 
9408 767 166176 JSR PC READ 
940 37 000010 ADD 6, 
9404 057 27 000005 CMP 0.45 
9405 057 1161 BNE 69 
9406 057 767 157700 JSR PC, ISOLATE : 5471 
9407 057 032767 000001 12262¢ BIT #1. ERROUT : 5473 
S08 Osrcce BtI769 asurue Rov Sat.neceao no 
9410 057 200 , ASR RO 
9411 057 200 ASR RO 
9418 57 200 ASR RO 
9413 057 00 ASR RO 
9414 05745 00 ASR RO 
9415 0574 00 ASR RO 
9416 57462 042700 177700 BIC #177700,R0 
941 37466 10046 MOV RO,-(SP 
418 574 12746 006640 MOV #FMT10B,-(SP) 
9419 057474 ot 746 000002 MOV #2,-(SP5 
9420 37300 1 MOV SP,RO : $2, 
9421 373 104414 TRAP ‘14 | 
94 : 7504 2706 000006 ADD #6,SP 
9, 37310 17766 154676 000030 63$: MOV QML .REG+44,30(SP) : *,OLDSEC 5482 
9424 7316 17700 154666 MOV QML .REG+42.RO ; 5483 
3 5 057 006 ASR RO 
S36 O3tese aa 
9428 23 00 ASR RO 
9429 05 00 ASR RO 
94 7 00 ASR RO 
1 057 177700 BIC #177700,R0 
‘ 7542 01 000032 MOV RO, 32(SP) : *,OLDCHN 
7546 012746 000 MOV #1,-(SP) : 5491 
94 7552 016646 000024 MOV 24 (SP) ,-(SP) : COMMAND, * 
9435 1356 10546 MOV R5,-(SP) : LUN,* 
94 ? 12746 00 MOV #400,-(SP) 
9% 7364 16646 34 MOV 34 (SP) ,=(SP) : PTR,* 
34 7570 016646 2 MOV 42(SP),-(SP) : OLDSEC,* 
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DEFINITION OF OPTION 


9449 


REKKLELL LLL 
SSRVRAEUINSS 


RERLR 


ERELLLLL 


No 


Sete] 


YSSS 
wm 


— 


SAVOUR 





ssi 
000005 


154574 


000032 
154556 


177700 


000001 


154436 
157512 


000001 


000001 





—_—_——- — 
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070030 


122374 


122340 


122316 


sMLX4 


64$: 


65$: 


66$: 


67$: 
68$: 
69$: 
70$: 


71$: 
72$: 


DEFINITION OF OPTION 2 


PC RETRY 
#14,SP 


66 
@ML .REG+44 ,30(SP) 
65$ 


32(SP) ,-(SP) 
inlet 


R 
#177700,R0 
RO, (SP)+ 


eigennOur 


PC.UP.HARD. COUNT 
#1 .ERROUT 


,7(SP) 
PC ,UP.SOFT.COUNT 
aye resar® 
R1,26(SP) 
71$ 


R5 
R5,34(SP) 
73$ 
36$ 


* ,OLDSEC 


; OLDCHN,* 


LUN,* 


LUN,* 


: SECTOR 
: SECTOR,* 


LUN 
LUN, * 


ee eS enemies “ 


27-Mar-1 
27-Mar-1 


982 19:24:4 
383 19:23:4 


SEQ 0223 


2 
4 


TOPS 
PA:< | 


| 
5500 | 


5504 
5509 
5512 
5500 


5517 
5522 


3525 
5531 


5536 


5539 


5470 
5466 





a 
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T2 DEFINIT OPTION 2 SEQ 0224 


94 ZMLX4 7-Mar-1982 19:24:64 TOPS | 
249 : DEFINITION OF OPTION 2 oe at 19:3$.6e PAre 
9% 0 706 600010 73$: ADD #10,SP : | 
95 4 38 30 74$: INC 30(SP) 3 COUNT be | 
99 1 30 000032 cP 30(SP) .32(SP) ; COUNT,*« | 
$508 ey oe wait 
9505 060050 000207 aa i F | 
95 : Routine Size: 1023 words | 
oa ; Maximum stack depth per invocation: 43 words 
9514 


| 
| 
| 
| 


ee ae ene eerste rennet estepeestenegenensnineenrer eee 2 
¢ 2 
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OPT2 DEFINITION OF SEQ 0225 
3218 sMLX4 27-"ar-1982 19:24:42 TOPS-20 Bliss=-16 V2(212) 
rea ; DEFINITION OF OPTION 3 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.8L1.5 (39) 
9519 ;: 5555 %sbttl ‘eer ption OF OPTION 3° 
9520 :; 5556 routine OPTS : novalue = 
9521 ;: 5557 begin 'x 1 * START OF ROUTINE 
95 g ; 5558 
95235 ;: 5559 !4+ 
re ¢ 5 e260 ROUTINE : OPT3 
Fe § ; 3206 : PURPOSE : TO DO A UNIQUE DATA CHECK ON ALL AVAILABLE UNITS. 

83 8; 3208 THE CODE FOR ‘*OPT3" IN BRIEF: 

95 5 5566 ! BEGIN 1 (START OF ROUTINE) 

9531 ;: 5567 ! SAY ROUTINE IS RUNNING 

9532 ;: 5568 |! INCR COMPLEMENT FLAG FROM 0 TO 1 

ge87 3 2297 ! =: BEGIN 2 (START OF COMPLEMENT FLAG SELECTION LOOP) 

95 3 5570 ! : GENERATE THE PATTERN 

9535 : 5571 ! : INCR LUN FROM 0 TO LAST 

9536 : 5572 |! : : BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 

9537 ;: 5573 ! : : TESTLOOP: 

oaee 3 5574 |! : : : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 

9539 ;: 5575 ! :-: : JF UNIT IS ACTIVE 

9540 : 5576 | =: : : THEN 

9541 ;: 5577 ! :: : : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 

9542 ;: 5578 ! >: : : INITIALIZE THE WRITE AND READ BUFFER POINTERS 

95435: 5579 ! : : : : SECTOR = LOWEST 

9544 ; 5580 ! : : : : WHILE SECTOR LEQ HIGHEST DO 

9545 ; 5581 ! :: : : : BEGIN 6 (START OF SECTOR SELECTION LOOP) 

9546 ; ., aa ee | NT 

9547 ;: 5585 ! :: : : : SET-UP BUFFER POINTERS BEFORE TRANSFER 

9548 ;s 5584 |! : : : : : WRIT 7 

9549 ; 5585 |! :: : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
50 ; 5586 ! :: : : : CHOOSE WHETHER TO WRITE CHECK OR READ 

9551 ; 5987 ! : : : : : DO THE WRITE CHECK OR READ 

oee8 : 5588 |! :: : : : LOOK FORE S (IF DROP UNIT, LEAVE TESTLOOP) 

9553 : 5589 ! : : : : : CHANGE BUFFER POINTERS AFTER TRANSFER 

9554 ; 5590 ! :: : : : UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVIOUS TRANSFER 

9555 ; 5591 ! : : : : : END 6 (END OF SECTOR SELECTION LOOP) | 

e228 : 5592 ! :: : : END 5 (END OF TEST FOR AN ACTIVE UNIT) 

9557 ; 5595 ! : : : END 4 (END OF TESTLOOP) 

9558 ; 5594 ! : : END 3 (END OF LOGICAL UNIT SELECTION LOOP) 

9222 3 2282 : END 2 (END OF COMPLEMENT FLAG SELECTION LOOP) 

59 3 3597 END 1 (END OF ROUTINE) 

gee$ ; 5599 

9564 ; 2600 label 

9565 ;: 5601 LOOP; 

3206 ; o006 

9567 ; 56 local 

9568 : 5 WRDCNT, 

9569 ; 5605 VALUE, 

9570 ; 5606 OLDSEC, 


ele er ee ere eee ee a ee eee Ce 


' 
re —— 4 
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SEQ 0226 


orense Bliss-16 V2(212) 


27-Mar-1982 1 Se 
A:<NEALE>MLX4.BL1.5 ( 3) 


27-Mar-1982 1 


'x 2 


START OF COMPLEMENT FLAG SELECTION LOOP 


‘* 3 * START OF LOGICAL UNIT SELECTION LOOP 
START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT 


'e 4 & 


'e 5 


START OF TEST FOR AN ACTIVE UNIT 


START OF SECTOR SELECTION LOOP 


VALUE = write iN LUM. -WRDCNT, .WPTR, .SECTOR): 


Lb Bi RETRY (SIX, write, -LUN, .WRDCNT 


T C.LUN] = CODE 


‘SEE "SYSERR' FOR DEFINITION | 
'OF ERROR # CONTAINED IN ‘VALUE' 
's 6A * RETRY ALLOWED 

-WPTR, .SECTOR) n neq 0 

'THE RETRY FAILED -- SYSTEM FATAL ERROR 

E_4; 
“!xeee OPTION 3 ERROR 01 sexx 
!JUMP JUST BEYOND END OF BLOCK * 4 « 


MLBBO PERFORMANCE EXERCISER 

T2 DEFINITION OF OPTION 2 

9572 :MLX4 

9257 é DEFINITION OF OPTION 3 

9575 ;: 5607 OLDCHN, 

9576 : 5608 SECTOR, 

9577 : 5609 PTR, 

9578 : 5610 COMMAND, 

Fete 3 get) DBL_VALUE; 

9581 ; 5613 PRINTB (SAY2, WRD34, RIN3); 

Sane 3 5614 !*RUNNING OP 3° 

95835 : 5615 

9584 ; 5616 incr COMP_FLAG from 0 to 1 do 

9585 ; 5617 begin 

9586 ; 5618 GENS (.COMP_FLAG); 

9587 : 5619 | 

9588 : 5620 incr LUN from 0 to (.LSUNIT = 1) do 

9589 ; 5621 begin 

9590 ; 5622 LOOP : ; 

9591 ;: 5623 begin 

9592 ;: 5624 

9593 : 5625 if .DRIVE_STATUS C.LUN] eql ACTIVE 

9594 ; 5626 then _ 

9595 : 5627 begin 

9597 : 5629 TR = F: 

9598 : 5630 RPTR = FF: 

9599 ;: 5631 SECTOR = LOWEST: 

9600 ; 5632 

9601 : 5633 while .SECTOR lequ HIGHEST do 

9602 ; 5634 ae. * 6 * 

9603 ;: 5635 WRDCNT = GET “5H (. SECTOR: HIGHEST); 

9604 ; 5636 SET_PTRS (.WRDC 

9605 ;: 5637 

9606 ; 5638 

9607 ; 5639 '+ 

9608 : 5640 ! SEE HOW SUCCESSFUL THE WRITE WAS: 

9609 ; 5641 !— 

9610 ; 5642 

9611 ; 5643 selectone .VALUE of 

gels : 5644 set 

9613 ;: 5645 

9614 ; 5646 [1] : 

9615 ; 5647 begin 

3516 3 5648 

9617 ;: 5649 

9618 ; 5650 

9619 ; 262; "begin. n 
' 3027 ERRDP (501 MSG1, 0): 
§ : 5655 leave LOOP; 
4; 5656 end; 

9625 ;: 5657 
6; 5658 end; 


'x 6A * 


AS ED Re re we 


o's PERFORMANCE EXERCI 
OPT2 DEFINITION OF OPTION 
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DEFINITION OF OPTION 5 





eee eee ~~ ~—_—- - 


7=Mar-1982 19:24:42  TOPS-20 Bliss-16 v2(212) 
oe lak bs 19:23:44 PA:<NEALE>MLX4.8L1.5 (39) 

- oa 

begin !* 6B * FATAL CONTROLLER ERROR == NO RETRY ALLOWED 

WHY DROPT C.LUN] = CODE_5:; 

ERRDF (302. MSG1, 0): ‘eee OPTION 3 ERROR 02 *xe« 

leave LOOP: ’ ‘JUMP JUST BEYOND END OF BLOCK * 4 « 

end; '* 6B * 
[3]: 


begin :* 6C * FATAL DRIVE ERROR == NO RETRY ALLOWED 
ERRDF (303, MSGI, 0): 'nee® OPTION 3 ERROR 03 «ane 

WHY DROPT £.LUN]°= CODE_6; 

DODD (.LUN): 

leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 « 

end; 's 6C * 


tes: 
COMMAND = CHOOSE (): 


if .COMMAND eql read 
then 


RPTR; 
VALUE = read (.LUN, .WRDCNT, .RPTR, - SECTOR); 


-WPTR; 
VALUE = CHECK (.LUN, .WRDCNT, .WPTR, -SECTOR);: 


1+ 
SEE HOW SUCCESSFUL THE OPERATION WAS: 


‘SEE ‘SYSERR' FOR DEFINITION 
‘OF ERROR # CONTAINED IN ‘VALUE’ 


selectone .VALUE of 
set 
[0] : 
“if .COMMAND eql read 
then — 
begin 
3 (DBL_VALUE = DOUBLE_CHECK (.WPTR, -RPTR, .WRDCNT)) neq 0 
en 
n 
SAYWHO (.LUN); 
PRINTB (SAY1 :*ECC LOGIC FAILED TO DETECT DATA ERROR’ 


MSG5): 
PRINTB (FMT12A, ..DBL_VALUE, .DBL VALUE): 
!*GOOD DATA: XXXXXX AT LOCATION YYyYyyy" 


SEQ 0227 


LLL ts ts 


— ea eles esteem ean wee we ee ee ee ee 


_ ree ee 
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DEFINITION OF OPTION SEQ 0228 9 
9684 ;MLX4 27-Mar-1982 19:24:42 TOPS=20 Bliss-16 v2(212) 
9685 : DEFINITION OF OPTION 3 27-Mar-1982 19:23:44 | PA:<NEALE>MLX4.BLI.5 (39) 
9687 ; 5711 DBL_VALUE = .DBL_VALUE + BUFSI2Z#2: 
: a718 PRINTB (FMT12B, >.DBL_VALUE, .DBL VALUE): 
9689 : 571 !"BAD DATA: PPPPPP AT LOCATION QaQQcd' 
9690 : 5714 WHY DROPT C.LUN] = CODE_8: 
9691 : 5715 ERRDF (304, MSGi, 0): !aee® OPTION 3 ERROR 04 eee 
9693 : 571 leave LOOP; ! JUMP JUST BEYOND END OF BLOCK * % « | 
9694 ;: 5718 end: : 
9695 ; 5719 
9696 ; 5720 end: | 
9697 ; 5721 : 
9698 : 57 é . to | 
rt : 2f ; begin 's 6D * RETRY ALLOWED 
: 5725 if RETRY (SIX, .COMMAND, .LUN, .WRDCNT, .PTR, .SECTOR) neq 0 | 
: 37 : then 'THE RETRY FAILED -- SYSTEM FATAL ERROR | 
; n 
: 5728 WHY DROPT C.LUN] = CODE_4; | 
; 37 9 ERRDF (305 MSG1, 0); “~!seee OPTION 3 ERROR 05 exe« | 
; 5731 leave LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 4 * | 
; rae end; 
: 573 
: hs: end; 's 6D * 
: 5735 
; 5736 [2] : | 
: 5737 begin 1 6£ * FATAL CONTROLLER ERROR == NO RETRY ALLOWED 
$ 5738 WHY DROPT C.LUNJ = CODE_5; 
: 5739 ERADF (306. MSG1., 0): 'neee OPTION 3 ERROR 06 eea« | 
: 5741 leave LOOP: ' JUMP JUST BEYOND END OF BLOCK * 4 * | 
: 3748 end: 'e 6E 
: 574 
; arte wie — 's 6F * FATAL DRIVE ERROR -- NO RETRY ALLOWED | 
3 eqin ; oe 
: 5746 ERRDF (307, MSG1, 0): ‘eeee OPTION 3 ERROR 07 sax | 
: 5747 WHY DROPT £.LUN]’= CODE_6; | 
: 2748 DODD (.LUN): | 
: 574 leave LOOP: ! JUMP JUST BEYOND END OF BLOCK « 4 * 
: 3784 end; in 6F * | | 
: 752 [4] : | 
: 2233 begin ‘ '® 6G * UNRECOVERABLE DATA ERROR 
: ee ERRDF (308, MSG2, 0): 'eeee OPTION 3 ERROR 08 xxx 1 
: 3736 WHY DROPT £ LUNI = CODE_?7; 
Py . ° 
: 5758 leave LOOP: ! JUMP JUST BEYOND END OF BLOCK * 4 « ! 
: 3739 end: it 6G * | 
3 are a: | | 
; 5762 begin !* 6H * RECOVERABLE DATA ERROR | 
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OPT2 DEFINITION OF OPTION 2 SEQ 0229 
9740 :MLX4 27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212) 
one ° DEFINITION OF OPTION 3 27-Mar-1982 19:23:44 PA: <NEALE>MLX4.8L1.5 (39) 
9743; 5763 ISOLATE (); 
9744 ; 5764 : 
9745 ;: 5765 if .ERROUT then PRINTB (FMT10B, .CHAN): 
9746 : 2006 
9747 ; 576 ts BIT aa’ 
9748 : 5768 OLDSEC = .MLEL;: : 
9749 : 5769 OLDCHN = .CHAN: | 
9750 ; 5770 3 
9751 ; 5771 if RETRY (ONE, .COMMAND, LUN, .WRDCNT, .PTR, .SECTOR) eql 5 | 
mi a 
9754 : 577% if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) | 
9755 : 5775 then 
9756 : 5776 begin | 
9757 ;: 5777 
9798 : 3278 if .ERROUT then ERRHRD (309, MSG4, 0); {ss OPTION 3 ERROR 09 eee | 
9760 : 578 UP_HARD_COUNT (.LUN, .BOARD): | 
9761 ; 578 end 
9762 ;: 5782 else 
vei | Ee ae 
ee s 3/82 if .ERROUT then ERRSOFT (310, MSG3. 0); !xex* OPTION 3 ERROR 10 xee« 
9767 ; 5787 UP_SOFT_COUNT (.LUN, .BOARD): 
9768 : 5788 end 
9769 ; 5789 
9770 «gx 5790 else 
9771 ; 5791 begin 
9772 ;: 5792 
Hae : tad, if .ERROUT then ERRSOFT (311, MSGS, 0); !«xa** OPTION 3 ERROR 11 xeee 
9775 ; 5795 UP_SOFT_COUNT (.LUN, .BOARD): 
3776 : 5796 end: 
9777 ; 5797 
9778 : 5798 end; 's 6H * 
9779 ; 5799 tes; 
9780 ; 3500 
9781 ; 5801 WPTR = .WPTR + (.WRDCNT*2): | 
9782 ;: 4 | SECTOR = .SECTOR + ( WRDCNT/256); | 
a 5 ha end; 's 6 * END OF SECTOR SELECTION LOOP | 
9785 : 5805 end: '* 5 * END OF TEST FOR AN ACTIVE UNIT | 
9786 : 2806 : | 
9787 ; 5 + | 
9788 ; 2608 ; Test to see if this uut's address space is | 
9789 ; 5809 : to be read for soft errors. This test is | 
Las : eit 1S Intended for DMT purposes. | 
9792 : 1 | 
9793 : 18 if .EFN$21 !Is the background pattern to be read | 
979% ° Bia then . 4 | 
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OPT2 DEFINITION OF OPTION 2 SEQ 0230 Of 

9796 :MLX4 27-Mar-1982 19:24:42  TOPS=20 Bliss-16 v2(212) | 
rad é DEFINITION OF OPTION 3 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.8L1.5 (39) 
3800 ; B16 7 
9801 : 5817! 
O80 ; agi8 ; version czmlbb changed incr to incru 
3804 : 3820 incru SECTOR from LOWEST to HIGHEST do | 

: 3822 if read (.LUN, 256, RBUFF, .SECTOR) eql $ | 

y § 286 then | | 

3 5824 conte ; pa | 
Psst : 2852 , ISOLATE (); ‘Find the failing bank and board no. | 
9811 : iB if .ERROUT then PRINTB (FMT10B, .CHAN); | 
3815 : 5 $5 ! Print where the error is | 
9814 ; 5830 ! ; | 
9815 ; 5831 : Save the contents of the ML error Location | 
aai8 ; 5832 : register so we can compare it to the new | 
9817 ; 5833 : contents of this register after the retry. 
9818 ; 5834 : This is done to classify the error. 
9819 : 5835 | 
9820 ; 5836 OLDSEC = .MLEL: | 
ss 13 5837 OLDCHN = .CHAN; | 
9 g 5 geee ! | 
3 ; 5839 ! Do a classify eases call. If the same error 
9826 ; 5840 : occures then classify it as a hard error. If | 

5; 5841 : a different error occured or the error went away 

9 $ ; 943 : then classify it as a soft error. | 
9 ; 584 : 
3 ; ane ; | | 
9 3 5845 if RETRY (ONE, .COMMAND, .LUN, 256, .PTR, .OLDSEC) eql 5 
mea aes - | . 
4: ¢ ; 5848 ' The same error occured so see if it is at the same 
9855 ; 5849 : sector and channel number, if so then classify | 
9834 ; 2620 t as a hard error else classiy it as a soft 1 
9835 ; ohe) error. | 
9837 ; 3858 
9858 ; 5 3¢ 7 ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) : 
OOF 5 en 
2: ? ; 3856 begin ‘Same error occured ‘hard' : 
rs $ : 5 38 is -ERROUT ‘Print error if enabled : 
9645 ; en 
B44 : 2 0 begin | ! 
9845 ; Pp ; 1 ERRHRD (312, ‘Error number | 1 
9846 : p G6 MSG4, ‘Error message , | 
7847 ; 0); ‘Additional message routine 1 
2: $ ; é end: : 
9850 : 5 UP_HARD_COUNT (.LUN, .BOARD): 1 
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CZ 
OPT2 DEFINITION OF OPTION 2 SEQ 0231 oP 
9852 :MLX4 27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212) | 
9855 é DEFINITION OF OPTION 3 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.8L1.5 (39) | 
9855 ; 5867 end 
oa2$ : re else 
one : 2867 begin ‘Not the same error ‘soft' 
58 ; 5870 R : ; 
59 ; 5871 if .ERROUT !Print error if enabled 
s 587 then 
1? 2B7 begin 
. : P 5874 ERRSOFT (313, ‘Error number 
; P 5875 MSG3, ‘Error message 
: 5876 0); ‘Additional message routine | 
9865 ;: Tad end; | 
9 : 5879 UP_SOFT_COUNT (.LUN, .BOARD): | 1 
3 : ; , end ! 
: 5 é else. 'Not the same error ‘soft’ i 
; 2 begin f 
: 5885 if .ERROUT ‘Print error if enabled 1 
; 2886 then - 1 
: 5 begin 1! 
9 : P 5888 ERRSOFT (314, ‘Error number 1! 
9877 ; P 5889 MSG3, ‘Error message ; 1 
ths ; 5890 : ‘Additional message routine 1! 
9879 ; : 4 end; ‘ 
BB1 ; 5 35 UP_SOFT_COUNT (.LUN, .BOARD): 1! 
9882 ; 5894 end; 1 
YS85 ; 5895 1! 
9884 ; 6 end; : 
9886 : 98 d; 1 
9887 ;: 99 1 
7506 ; 0 end; 'x 4 « END OF TESTLOOP 1 
7885 : 901 end; 'x 3 * END OF LOGICAL UNIT SELECTION LOOP , 
891 end; '* 2 * END OF COMPLEMENT FLAG SELECTION LOOP 
985 : 5 return; 1 
989% ; 9 end; !s 1 * END OF ROUTINE I 
: -SBTTL OPT3 DEFINITION OF OPTION 3 1 
9 ss ies 7 163636 OPT3: i R1,$SAVES : 5556 : 
5 1 2 MOV #RTN3,-(SP) ; 5613 1 
906 b15548 ete MOV #WRD34,-(SP) i 
1 
1( 
1 
1( 
1 


CZMLBBO PERFORMANCE 






OPTS DEFINITION OF 
9908 
9909 
9910 
9911 72 012746 
Sai8 76 01274 
991 102 01 
Sis SIS sets 
991 11 ig 9 
3519 14 004 6 
9918 0601 016766 
9919 1 
9920 0601 1 
$e) Sle Sea 
See SIS Sa 
9925 152 00 
99 $ 156 010046 
99 160 016646 
9928 0601 16 
9929 060170 012746 
99 174 6 
9931 478 67 
99 $ 0 706 
99 0C5300 
99 10 001402 
9935 12 000167 
9936 060216 016667 
9937 060224 012767 
9938 060 12767 
9939 060240 016605 
9940 ua 5 
9941 re 016503 
994 32 020365 
994 36 101355 
9944 010346 
9945 bate 
Sot SR Wire 
9948 74 010216 
9949 7 67 
9950 16616 
51 06¢ 010246 
28 016746 
995 1034 
Ses BEES Here 
sie 
$s Wises Sis 
16646 
9961 10246 
9962 016746 





oie 


Sis 


152314 


000014 


1$: 


2$: 


3$: 
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OPTION 


DEFINITION OF OPTION 3 


#SAY2,-(SP) 
#3,~-(SP) 
SPR 


#DRIVE.STATUS,RO 
RO,-(SP 


14(SP) ,-(SP) 
#177770, (SP) 
#1 = (SP) 


-(§P) 
PC BL$GT2 
#10,SP 

4$ 

29$ 

12(SP) ,LSLUN 
#WBUFF -WPTR 
#RBUFF (RPTR 
be(SP) ORS 


R 
LOW. SECT(R5) ,R3 
R3,TOP.SECT(R5) 


R3,-(SP) 
TOP. SECT(RS) .-(SP) 
PC. GET. WRDCNF 
ROR 

R2, (SP) 
PC,SET.PTRS 
1G(SP) (SP) 


#6,-(SP) 
WWRITE (SP) 
30(SP) ,-(SP) 


R2,-(SP) 
WPTR,=(SP) 


SP,* 


; COMP.FLAG 
; COMP.FLAG,* 


LUN 
LUN,* 


LUN,* 


LUN,* 


LUN,* 


* SECTOR 
SECTOR,* 


SECTOR, * 
 ,WRDCNT 
WRDCNT, * 
LUN,* 

WRDCNT,* 
SECTOR,* 


* , VALUE 
VALUE , * 


* 
WRDCNT,* 


27-Mar-1982 19:24:42 
5) omar 1985 


I A tte 


SEQ 0232 OF 


TOPS | 


19:23:44 PA:< | 
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9964 sMLXG a ala 19:24:42 TOPS | 
9965 ; DEFINITION OF OPTION 3 27-Mar-1982 19:23:46 PA:<. 
goes 060354 010346 MOV R3,-(SP) : SECTOR,* | 
9968 06035 b0s76s 165642 JSR PC RETRY | 
9969 706 000014 ADD #14,SP , | 
9970 060 7 TST RO | 
9971 060 001456 BEQ 9$ | 
9972 060372 016601 000024 MOV 24(SP).R1 : LUN,* 5652 
99 7% 11 $1 000004 034446 MOVB #4,WHY.DROPT(R1) 

9974 04 104455 TRAP =‘ 55 : 5653 
9975 06 000455 .WORD 455 

9976 10 011070 -WORD MSG 

3978 pe04 14 Spetitd 000024 nov (SP) RO LUN, * 5654 
9979 0604 9 tks TRAP 3 ae 
338 : : Be ef 4 G20497 000002 6$: CMP Ra W2 > VALUE, * 5643 
Sons Of 1 000024 MOV 24(SP).R1 : LUN,* 5662 
9984 960436 112761 000005 034446 MOVB #5,WHY.DROPT(R1) 

9985 44 1046455 TRAP =: 555 ; 5663 

46 000456 .WORD 456 

3085 50 011070 .WORD MSG 

9988 060452 WORD 

9989 54 016600 000024 MOV 24 (SP) .RO : LUN,* 5664 
9990 60 104451 TRAP ss‘ §1 

9991 62 000416 BR RS : 5665 
9992 64 020427 000003 7$: CMP RG A3 : : VALUE,* 5643 
999 9 001016 BNE 9$ 

9994 72 104455 TRAP = 55 : 5670 
9995 060474 000457 .WORD 457 

9996 76 011070 .WORD MSG 

999 300 .WORD 0 

9998 50 ret 000024 MOV 24(SP),R1 : LUN,* 5671 

306 112761 000006 034446 MOVB #6,WHY.DROPT(R1) 

1 514 010100 : MOV R1,RO ; LUN,* 5672 
10001 960516 104451 TRAP 
1 4 160520 2706 000012 8$: ADD #12,SP : 5673 
1 524 54 BR 4$ 
17 5 767 165434 9$: JSR PC, CHOOSE : 5677 
10005 0605 1 000040 MOV RO.40(SP) > *, COMMAND | 
1 5 1 CLR R : 5679 
1 54 7 065612 CMP RO, #READ > COMMAND, * 
H 346 bossoT = © 
10010 12560 152116 000036 MOV RPTR, 36(SP) : *,PTR 5682 
10011 16646 000024 MOV 24 (SP) ,=(SP) : LUN,* 5683 
1 1 10246 MOV R2,-(SP) : WRDCNT,* 
1001 16746 152102 MOV RPTR,-(SP) 
10014 10346 MOV R3,-(SP) : SECTOR,* 
1 67 165014 JSR PC READ 
1001 16766 152064 000036 10$: Mov WPTR, 36(SP) : 
10018 06 16646 000024 MOV 24 (SP) ,=(SP) : LUN,* 688 


* PTR 5687 | 
5 

| 

| 

' 
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SEQ 0234 ic 

10020 MLX4 27-Mar-1982 19:24:42 TOPS | 
100 1 : DEFINITION OF OPTION 3 27-Mar-1982 19:23:46 PA:< 
100 $ 060612 010246 MOV R2,-(SP) : WRDCNT,* 
10024 14 016746 152050 MOV WPTR,=(SP) | 
10025 0 910 2 MOV R3,-(SP) : SECTOR,* | 
10026 2 67 165152 JSR PC, CHECK | 
10027 10004 11$: MOV RO.R4 : *, VALUE | 
100 1102 BNE 15$ ; 5695 
1 060632 1 ROR R1 : 5700 
10030 060634 1 02 BLO 13$ 
10031 16 001014 12$: § JMP 28$ 
100 $ 16746 152022 13$: MOV WPTR,-(SP) : 5704 
100 016746 152020 MOV RPTR,-(SP) 
100 96069 01 46 MOV R2,-(SP) : WRDCNT,* 
10035 54 004767 163446 JSR PC ,DOUBLE . CHECK | 
100 706 000006 ADD #6,SP | 
100 O70 66 000042 MoV RO .42(SP) ; *,DBL. VALUE 
10039 9 01 000034 MOV 34 (SP) ,=(SP) : LUN,* 5707 
10040 76 004767 154622 JSR PC, SAYWHO 
10041 02 012716 011216 MOV #MSG5, (SP) : 5708 
1004¢ 7 12746 007072 MOV #SAY1,=(SP) 
1004 712 012746 000002 MOV 7S 
10044 060716 01 MOV oR : SP,* 
10045 060720 104414 TRAP 
10046 722 016616 000050 MOV 50(SP), (SP) : DBL.VALUE,* 5709 
1004 726 017646 000050 MOV a50(SP) ,-(SP) ; DBL.VALUE.* 
1 ; ot 46 006710 MOV #FMT12A,-(SP) 
1 12746 000003 MOV ,~ (SPS 
10050 060742 010600 MOV RO : SP,* 
i 23 ore. Weed 010000 000056 AD #10000 56 (SP) DBL . VALUE 5711 

g e w. e 
1 38 754 $6 16 000056 MOV 56(SP) ; (SP) : DBL. VALUE, * 5712 
10054 060760 017646 000056 MOV @56 (SP) ,-(SP) : DBL.VALUE,* 
10055 0¢ 64 12746 006756 MOV #FMT12B.-(SP) 
10036 060770 012746 000005 MOV #3,-(SP5 
10057 060774 010600 MOV RO : SP,* 
10058 060776 104414 TRAP ‘14 
106 o1 01 000056 MOV 56(SP).R1 : LUN,* 5714 
10060 1 61 000010 034446 MOVB #10,WHY.DROPT(R1) 
1006 12 1044 § TRAP = 555 : 5715 
1006¢ 14 O $0 -WORD 460 
100¢ 1 11 0 - WORD MSGI 
1006 ~ WORD 0 
I Soee : 000056 Tee getSP) RO > LUN,* 5716 
1096 _ “4s: BR see°or ' sds: 
100¢ 27 000001 15$: cp RG a1 : VALUE,* 5695 
106 12986 0 MOV #6,-(SP) ; 5725 
1 50 016646 52 MOV 52(SP) ,-(SP) : COMMAND, « 
1 54 16646 0 MOV 40(SP).-(SP) : LUN,* 
10074 10246 MOV 2,~(SP) : WRDCNT,* 


' 
ee oe J 
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iC 
CZMLBBO PERFORMANCE £ | 
OPT3 DEFINITION OF OPTION SEQ 0235 | 0 
: 27-Mar-1982 19:24:42 TOPS | | 
10977 ‘ea DEFINITION OF OPTION 3 Somer 1985 19:23:44 9 PA:< 
10078 | 
0000 (SP) ,=(SP) : PTR,* | 
10080 delgeg O10346 ” nov RS. =(36) : Sicfon.« | 
i | Sie be3 $s spore ADD #14, SP 
i 1105 $076 BEOQ 12$ 
10085 061104 016601 000034 MOV §34(SP).R1 : LUN,* 5728 
1 061110 11 $1 000004 034446 MOVE #4, WHY DROPT(R1) hs 
1B WSS ite ee 2 
1 061132 11070 “WORD MSGI 
1009 59 bei rete 000034 MOV 34(SP).RO : LUN,* 5730 
19098 061182 304z51 trap 51 i - 
i i] 35 000002 16$: (MP  R6.#2 : VALUE,* 5695 
1 114 1015 BNE 17$ 
1 061144 016601 000034 MOV 34(SP).R1 : LUN,* 5738 
1009 961150 119961 000005 034446 MOVB  #5,WHY-DROPT(R1) pi 
10098 1156 10445 TRAP 35. : 
10100 116 1070 “WORD D msGt 
1910¢ 1166 016600 000034 MOV 34(SP)..RO : LUN,* 5740 
1 
1 : 5741 
19} 5 1176 2¢ 437 000003 178: op Ra a3 : VALUE, * 5695 
1010 ' o 104455 TRAP = 55 : 5746 
10108 061 000463 -WORD 463 
10108 61210 011070 “WORD MSGI 
10110 061212 000690 “WORD 0 
1914 $1214 016601 000034 MOV = 34(SP).RI : LUN,* 5747 
10112 061220 112761 000006 034446 MOVB #6, WHY DROPT(R1) 
10113 061 0100 MOV _— R1_RO : LUN,* 5748 
10114 061 oaeass TRAP 
10115 061 BR 19$ : 5749 
1 116 061 3? 000004 18S: cwP Re m” > VALUE,* 5695 
i 1 3 re 7 156064 JSR PC, ISOLATE : 5754 
101 5 5126 §f TRAF 4555 : 5755 
10120 061 ° 64 -WORD 464 
101 1 52 20 “WORD S62 
: i 5 51 2 000034 MOV S4(SP).R1 : LUN.* 5756 
1 H ‘ i — Rov niRO ‘ : LUN,* 5757 
He a a i 7 = 
4 5 21$: CMP R445 : VALUE,* 5695 
i i 4 10 001162 BNE 28$ 
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CZMLBB0 PERFORMANC SEQ C236 


E EXE 
OPTS DEFINITION OF OPTI 





101 ZMLXG 27-Mar-1982 19:24:42  ToPs | 

10138 : DEFINITION OF OPTION 3 5 omar 1989 19:38:46 PA:< | 

10135 061 767 156014 JSR PC, ISOLATE : 5763 

101 1 082767 1 120734 BIT #1, ERROUT : 5765 

101 1 1423 BEQ 

101 017701 153056 MOV QML .REG+42,R1 | 

101 1 ASR R1 | 

10140 01 ASR R1 | 

10141 1 ASR R1 | 

1 14 01 ASR R1 

1014 1 ASR R1 

10144 1 ASR R1 

10145 01 177700 BIC #177700,R1 

10146 10146 MOV R1,-(SP 

1014 12746 006640 MOV #FMT10B,-(SP) 

10148 12746 000002 MOV #2,-(SP5 

1014 01 MOV SP,RO 3 SP,* 

10150 104414 TRAP 3s «‘'14 

10151 062706 000006 ADD #6,SP 

10138 17766 153012 000044 22$: MOV @ML .REG+44 ,44(SP) : *,OLDSEC 5768 

1015 017701 153002 MOV @ML .REG+42,R1 : 5769 

10154 006201 ASR R1 

10159 01 ASR R1 

1 198 1 ASR R1 

1015 ASR R1 
1 138 ASR R1 | 
1015 ASR R1 
10160 177700 BIC #177700,R1 
10161 000040 MOV R1,40(SP) ; *, OLDCHN 
1016¢ 000001 MOV #1,-(SP) : 5771 | 
101 000052 MOV 52(SP) ,-(SP) : COMMAND, * 1 
101 000040 MOV 40(SP) ,-(SP) : LUN,* | 
10165 MOV R2,~(SP) : WRDCNT,* 1 
1 166 000056 MOV 36(SP) -(SP) : PTR,* 1 
101 MOV .7(SP) : SECTOR,* 

191 000014 ma 6|6Ute 
ig _ ge | 
! I%e 152712 000044 oe @ML .REG+44 ,44(SP) : *, OLDSEC 5774 1 
10174 040 MOV 40(SP) RO : OLDCHN,* 1 
10175 152674 MOV QML .REG+42,R1 1 
1 176 ASR R1 1 
101 ASR R1 1 
1 178 ASR R1 1 
101 ASR R1 1 
iH at } 
101 177700 BIC #177700,R1 1 
101 CMP R1,RO 1 
101 BNE 2 1 
10185 000001 120512 BIT #1, ERROUT : 5778 1 
101 BEQ 23$ 1 
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120454 24$ 
120432 25$: 


nm 
155626 
000001 
000001 
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EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 226 a 
DEFINITION OF OPTION SEQ 0238 OF 

10244 :MLX4 27-Mar-1982 19:24:42 TOPS 
10 49 ; DEFINITION OF OPTION 3 27-Mar-1982 19:23:44 PA:< 
10247 162012 155314 JSR PC, ISOLATE : 5825 | 
10248 062016 000001 120234 BIT #1, ERROUT 3 5827 
10249 162024 BEQ 32$ | 
10250 062¢ $ 152356 MOV aML .REG+42,R0 
10251 062C ASR RO 
10, 26 670 ASR RO 
10253 062¢ ASR RO | 
10254 06204 ASR RO | 
19 55 06204 ASR RO 
1 56 62 ASR RO | 
10257 062 177700 BIC  #177700,R0 | 
10258 06205 MOV RO,-(SP | 
10259 06205 006640 MOV #FMT10B,-(SP) 
10 60 062060 000002 MOV #2,-(SP) 
10261 062064 MOV SP,RO : SP, | 
1026¢ "VA 066 TRAP 1% 
10263 062070 006 ADD 4'6,SP | 
10264 062074 152312 000022 32$: Mov QML .REG+44,22(SP) : *,OLDSEC 5836 f 
10265 062102 152302 MOV QML .REG+42.R0 ; 5837 t 
10 66 € 106 200 ASR RO ' 
10267 06211 ASR RO 1 
10268 96 112 00 ASR RO j 
10269 062114 006200 ASR RO 1 
10270 062116 006200 ASR RO : 
10271 0621 9 906200 SR | 
10 ze 062122 042700 177700 BIC #177700.RO ey 
1 1621 6 019066 016 V RO, 16(SP) : *,OLDCHN | 
10274 062132 012746 1 MOV - : 5845 ear 
10275 062136 016646 000030 MOV 30(SP) ,=(SP) : COMMAND, * 1! 
1 26 16214 0} 6 000016 MOV 16(SP) , -( : LUN,* 1 
1 962146 012746 000400 MOV - 1" 
10278 06215 016646 000034 MOV (SP) ,=(SP) : PTR. * 1 
10279 0¢€ 136 01664 000034 MOV (SP) ,=(SP) : OLDSEC,* 1 
10280 062162 164036 JSR C RETR 1 
10281 962166 162706 000014 ADD é, 1 
1058 601 72 — BNE Oe 
10¢ + 06¢ 152206 000022 cP ML REG*44 ,22(SP) : *, OLDSEC 5854 } 
10286 06¢ 1 000016 MOV 16(SP) .-(SP : OLDCHN, * 1 
10 162214 152170 MOV @ML .REG+42,R0 1 
19288 062220 ASR RO | ! 
1¢ > ASR RO 1 
10290 062204 SR RO | ! 
10291 062 ASR —s RO | L 
102 é 6¢ ASR ~—s RO | ] 
10293 06¢ ASR ~—s_ RO | ! 
1 62 177700 BIC #177700,R0 1 
10295 06224 CMP RO, (SP)+ 1 
10696 Beceee 200001 120006 BIT eins 5858 
, ti. bg 
10298 062252 BEO 33$ | i 
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OPT3 DEFINITION 0 SEQ 0239 oF 
sMLX4 27-Mar-1982 19:24:42 TOPS | 
10361 DEFINITION OF OPTION 3 57-Mar-1982 19:53.44 PA:< 
10303 104456 TRAP = 5S : 5863 
19302 000470 .WORD 470 : 
10 5 011202 - WORD MSG : 
10307 16646 2 33$: MOV 12(SP) ,-(SP) : LUN,* 5866 | 
19 016 46 15 046 MOV ,~(SP | 
10 09 0047 f 15512 JSR PC ,UP HARD. COUNT : ee 
1031) 032767 000001 117750 34$: BIT #1. ERROUT : 5871 
1 1 1415 BEQ 36$ 
1031 104457 TRAP «457 ; 5876 
10314 000471 .WORD 471 
ig Resse 8 oe ES 
10 13 10 BR 36$ : 5879 | 
10318 032767 000001 117726 35$:  ~=&BIT #1, ERROUT ; 5885 | 
10319 001404 BEQ 36$ : 
10320 06 104457 TRAP ‘57 : 5890 | 
10 1 06 000472 .WORD 472 
10 g 011166 - WORD MSG3 ! 
10324 06 6 000012 36$: MOV 12(SP) ,=(SP) : LUN,* 5893 
10325 06 016746 151766 MOV D,-(SP) | 
19 6 767 155524 PC UP. SOFT. COUNT 
1 é 022626 37$ (SP)+, (SP)+ : 5824 ) 
10328 005205 38$ RS : SECTOR 5820 
10 020501 39$ R9 -R1 : SECTOR, * 
10 1 o001es 177362 31$ 1 
1 ; 74 005266 0$ 12(SP) : LUN 5620 
10 400 026666 000012 000014 41$ 1g(SP).14(SP) : LUN,* 
10 5 “46 167 175524 2$ | 1 
1 414 005726 42$ (SP)+ : 5617 1 
1 416 0052 900026 26(SP) : COMP.FLAG 5616 : 
: 4 2 0026 000001 26 (SP) a1 : COMP.FLAG,* 
10340 0624 O08 175454 JMP 1$ 
10341 0624 2706 0000 43$: ADD #30,SP , 5556 
1 ¢ 64 207 RTS PC 
10344 : Routine Size: 637 words : 
19 $2 s Maximum stack depth per invocation: 37 words 1 
10351 . 
1 
1 
1 
1 
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MACRO M1113 29-MAR-82 13:41 PAGE 328 
SEQ 0240 


TOPS-20 Bliss=-16 Vv2(212) 


Somer 1386 19:$$74¢ 
82 19: PA:<NEALE>MLX4.BL1.5 (40) 


7-Mar-19 1:23:44 


Zsbttl “DEFINITION OF OPTION 4° 
routi 


ne OPT4 : novalue = 


++ 


begin :* 1 * START OF ROUTINE 
ROUT INE : OPT4 
PURPOSE : TO LOOK FOR INTEREACTIONS BETWEEN SECTORS 


USING A MARCH TEST. 
THE CODE IN BRIEF: 
BEGIN 1 (START OF ROUTINE) 
SAY TINE IS RUNNING 


WORD COUNT = 256 


GENERATE A BUFFER OF DATA 


GENERATE A BUFFER OF COMP ; | 
INITIALIZE POINTERS TO 4 BUFFERS FOR WRITE/READ DATA/COMP 
INCR LUN. FROM T 

: BEGIN 2 (START OF LOGICAL UNIT SELECTION LOOP) 

: TESTLOOP: 


E e 
: : BEGIN 3 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
2: =" IS ACTIVE 


ss 
>: : : BEGIN 4 (START OF TEST FOR AN ACTIVE UNIT) 
: : : INCR SECTOR FROM LOWEST I T 
;: : : BEGIN 4A (START OF 1ST SECTOR SELECTION LOOP) 
ITE *DATA’* 


OOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
: 4A (END OF 1ST SECTOR SELECTION LOOP) 
: : : CHOOSE WHETHER TO WRITE CHECK OR READ "DATA’ 
: : : INCR SECTOR FROM LOWEST TO HIGHEST 
: : : : BEGIN 48 (START OF 2ND SECTOR SELECTION LOOP) 
: : : : DO THE WRITE CHECK OR READ OF ‘DATA’ 
ee LOOK FOR oGRRORS (IF DROP UNIT, LEAVE TESTLOOP) 





: WRI 
: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
: 2 END 4B (END OF 2ND SECTOR SELECTION LOOP) 
: : : CHOOSE WHETHER TO WRITE CHECK OR READ "COMP' 
: : : DECR SECTOR FROM Hi TO T 


BEGIN 4C (START OF SECTOR SELECTION LOOP) 
DO T HECK OR READ OF ‘COMP’ 
S (IF DROP UNIT, LEAVE TESTLOOP) 


s LEAVE TESTLOOP) 
E (END OF 3RD SECTOR SELECTION LOOP) 
WHETHER TO WRITE CHEC READ "DATA 
OM LOWEST TO HI 


: : : : BEGIN 4D (START OF 4TH SECTOR SELECTION LOOP) 

: : : DO THE WRITE CHECK OR READ OF "DATA® 
: : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
: : : END 4D (END OF 4TH SECTOR SELECTION LOOP) 


SE se ee ee eee 5 
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10409 ;MLX4 

10410 ; 

10411 

ele 3 5959 
10413 ; 5960 
10414 ; 5961 
10415 ; 2o0% 
ot ; 596 
10417 ; 5964 
10418 ; 5965 
10419 ; sac8 
10420 ; 596 
10452 3 3568 
104 g ; 5970 
10426 ; 5971 
10425 : | 597 
10426 ; 597 
10427 ; 5974 
10428 ;: 5975 
10429 ; 5976 
10430 ; 5977 
10431 ; 5978 
10432 ; 5979 
10435 : 5980 
10434 ; 5981 
1s 5: 598 
1 3 598 
10437 ; 5984 
10438 ; 5985 
1” 9; 5986 
10440 ; 5987 
10441 ; 5988 
Mo 5 5989 
104435 ; 5990 
10444 ; 5991 
eeek : 599 
1 28 : 99 
10447 ;: 994 
1 
ee: 
1 52 : 3998 
10484 $003 
1 2¢ ; 6 4 
1 2$ : 6 
10457 ; 6 

1 38 ; 6005 
10459 ; 6 
10460 ; 
eS 
10483 ; 6010 


eee 
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DEFINITION OF OPTION 4 
: : END 4 (END OF TEST FOR AN ACTIVE UNIT) 


: : END 3 (END OF TESTLOOP) 





ee 
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SEQ 0241 


27-Mar-19 


82 19:26:42 TOPS- iss-16 V2(212) 
57-Mar-1982 19:93:44 epee: '6, vet212 


24:4 
223:4 PA:<NEALE>MLX4.BLI.5 (40) 


END 2 (END OF LOGICAL UNIT SELECTION LOOP) 


RETURN 
END 1 (END OF ROUTINE) 


Label 
LOOP 


local 


PRINTB (SAY2, WRD34, RING); 
: ; RUNN OPT4* 


GENS (.MARPAT, WDBUFF): 
GENS ((=.MARPAT), WCBUFF): 


PTR = F; 
WCPTR = WCBUFF ; 
DPTR = RDBUFF ; 


RCPTR = RCBUFF; 
incr LUN from 0 to (.LSUNIT = 1) do 
begin 


LOOP : 


! 
! ve 
! 


begin 
if .DRIVE_STATUS C.LUN] eql ACTIVE 
then 
begin 
LSLUN = .LUN: 
PRINTB (SAY1, WRD35): 
'*MARCHING'’ 
ie pee WRD24); 


rsion czmlbb changed incr to incru 


ory SECTOR from LOWEST to HIGHEST do 
egin 
VALUE = write (.LUN, 256, .WDPTR, .SECTOR): 


-POINTER TO 256-WORD WRITE DATA BUFFER 
'PO D WRIT 
‘POINTER TO 256-WOR 
‘POINTER TO 256-WORD READ COMP BUFFER 

:* 2 * START OF LOGICAL UNIT SELECTION LOOP 

‘* 3 * START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT 


's 4 *& 


START OF TEST FOR AN ACTIVE UNIT 


* 4A * START OF 1ST SECTOR SELECTION LOOP 


ee ee ee eee 


A a ee ee 


ete eateeteteneencnee ee 


es 
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DEFINITION OF 


10465 ;MLX4 
10466 ; 
i ve (4 
10468 ; 601 
10469 ; 1 
10470 ; 601 
1 a 
10473 ; 1 
10474 ; rites 
10475 ; 6018 
ee: 
10478 ; 6021 
10479 ; 60 ‘ 
10480 ; 60 
10481 ; 6024 
10482 ; 6025 
10485 ; o0s6 
10484 ; 05 
10485 ; 60 
10486 ; one 
10487 ; 6030 
9 s 6031 
10489 ; 60 
10490 ; 60 
10491 ; 6034 
10492 ; 6035 
10495 ; 6036 
Hof § 6037 
10498 ; $039 
1 38 : 6040 
: oS : rag 
1 5 : $043 
10501 ; 6044 
10808 6046 
1 : 6 
1 5: 6048 
1 : 6049 
1 : 0 
10800 ¢ 32 
10510 : 5 
10517 ; 6054 
1 1¢ 3 6055 
105135 ; 605 
10514 ; 5 
10515 ; 5 
1 216 ; 05 
1 HY § 0 
10518 ; 

= 70519 ; 6 
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DEFINITION OF OPTION 4 
+ 


14 
! SEE HOW SUCCESSFUL THE WRITE 


selectone .VALUE of 
set 


{1} : 
begin 


if RETRY (SIX, write, .L 
then 


begin 


27-Mar-1982 19: 
27-Mar-1982 19: 


WAS: 





53:44 


TOPS-20 Bliss-14 V2(212) 
PA:<NEALE>MLX4.BL1.5 (40) 


:SEE "SYSERR" FOR DEFINITION 
:OF ERROR # CONTAINED IN ‘VALUE' 


'® 4A1 * 


ROPT C.LUN] = CODE_4; 


leave LOOP: 
end; 
end; 


(2) : 


begin 
Y DROPT C.LUN] = cope § 


e 
WH 

ERRDF (402, MSG1, 0): 
DODU (.LUN): 

leave LOOP; 

end; 


pegin 

ERRDF (403, MSGI, 0): 
WHY _DROPT £.LUN] = C 
DODU (.LUN): 

leave LOOP; 

end; 

tes; 


C3] 


end; 
PRINTS, (FMT2, WRD24): 
COMMAND = CHOOSE (): 


version czmlbb changed incr to incru 


incru SECTOR from LOWEST to HIGHEST 
begin 


if .COMMAND eql read 
then 


1 
WHY. D 
ERRDF (401, MSGI, 0): 
DODU (.LUN): 


RETRY ALLOWED 


UN, 256, .WDPTR, .SECTOR) neg 0 
‘THE RETRY FAILED == SYSTEM FATAL ERROR 


:*e%* OPTION 4 ERROR 01 sexx 


‘JUMP JUST BEYOND END OF BLOCK * 3 « 


!s 4Al * 


1% 4A2 * 


FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
“Tkae® OPTION 4 ERROR 02 «xxx 


: JUMP JUST BEYOND END OF BLOCK * 3 « 
te 4A2 * 


Ie GAZ * 
inee® OPTION 4 


FATAL DRIVE ERROR -- NO RETRY ALLOWED 
x 


ERROR 05 «xx 


- JUMP JUST BEYOND END OF BLOCK * 3 « 
'* 4A3 * 


fe 4A * 


do 
'x 4B * 


END OF 1ST SECTOR SELECTION LOOP 


START OF 2ND SECTOR SELECTION LOOP 


a 
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selectone .VALUE of 
set 


ooco 
SVS 


CONAULSWIN =O 


FwWwN—o 


a 





eee EE _ 


3 


27-Mar-1982 19:24: 
27-Mar-1982 19:23:4 


else 


pegin 
PTR = .RDPTR: 
VALUE = read (.LUN, 256, .PTR, .SECTOR): 
end 
g n 
PTR = .WDPTR: 
— = CHECK (.LUN, 256, .PTR, .SECTOR): 
end; 


he ; s 
SEE HOW SUCCESSFUL THE OPERATION WAS: 


‘SEE "SYSERR' FOR DEFINITION 
-OF ERROR # CONTAINED IN ‘VALUE’ 


[0] : 
if .COMMAND eql read 
then — 
begin 


if (DBL_VALUE = DOUBLE_CHECK (.WDPTR, .RDPTR, 256)) neq 0 
en 


SAYWHO (.LUN): 

PRINTB (SAY1, MSGS): 

!*ECC LOGIC FAILED TO DETECT DATA ERROR’ 
PRINTB (FMT12A, ..DBL_VALUE, .DBL_VALUE): 
'*GO0D BaTAs XXXXXX AT ry thy, vYyyyy’ 





DBL_ VALUE = .DBL_V : 

PRINTS (FMT12B, ~.DBL_VALUE, .DBL VALUE); 

!*BAD DATA: PPPPPP AT LOCATION Q0aQdQ' 

WHY DROPT C.LUN) = CODE_8; 

oer (aoe MSG1, 0); !xee OPTION 4 ERROR 04 xxe« 


leave LOOP;”  !JUMP JUST BEYOND END OF BLOCK « 4 * 
end, 


end; 


C1] : 
begin 's 4B1 * RETRY ALLOWED 


if RETRY (SIX, .COMMAND, .LUN, 256, .PTR, .SECTOR) nen 0 
then | ‘THE RETRY FAILED == SYSTEM FATAL ERROR 


begin 

WHY DROPT C.LUN] = CODE_4; 

ERRDF (405, MSG1, 0); !xxet OPTION 4 ERROR 05 xxx 
DODU (.LUNS: 


leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 3 « 


242 TOPS-20 Bliss-16 V2(212) 
“ PA:<NEALE>MLX4.8L1.5 (40) 


SEQ 0243 
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- el 





3 
SEQ 0244 


(2) : 


(3] : 


[4] : 


C53] 


27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212) 
27-Mar-1982 19:23:44 § PA:<NEALE>MLX4.BL1.5 (40) 
end; 

end; 's 4B1 * 

begin '® 4B2 * FATAL CONTROLLER ERROR -- NO RETRY D 

WHY DROPT C.LUN] = CODE_5; — 

ERRDF (406, MSG1, 0); “~!*ees OPTION 4 ERROR 06 «eee 

DODU (.LUN): 

Leave LOOP: 'JUMP_ JUST BEYOND END OF BLOCK « 3 « 

end: ix 4B2 * 

begin 1x 4B3 * FATAL DRIVE ERROR -~ NO RETRY ALLOWED 

ERRDF (407, MSG1, 0);  !«ee® OPTION 4 ERROR 07 eeax — 

WHY DROPT £.LUN]’= CODE_6; 

DODD (.LUN): 

Leave LOOP: !JUMP_JUST BEYOND END OF BLOCK * 3 « 

end; 's 4B3 * 


i* 4B4 * UNRECOVERABLE DATA ERROR 


begin 
ISOLATE ( 


Fy 
ERRDF (408, MSG2, 0);  !**** OPTION 4 ERROR 08 xxx 
WHY DROPT £.LUN] = CODE_7; 
DoDD (.LUN): | 
Leave LOOP: !JUMP JUST BEYOND END OF BLOCK * 3 « 
end; 'x 4B4 * 
begin it 485 * RECOVERABLE DATA ERROR 
ISOLATE (): 


if .ERROUT then PRINTB (FMT10B, .CHAN): 
* BIT QQ° 

OLDSEC = .MLEL; 

OLDCHN = .CHAN; 


Hi RETRY (ONE, .COMMAND, .LUN, 256, .PTR, .SECTOR) eql 5 
en 


iy ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
en 

begin 

if .ERROUT then ERRHRD (409, MSG4, 0): 


UP_HARD_COUNT (.LUN, .BOARD): 
end 


:*ee® OPTION 4 ERROR 09 x2 


Sé 
begin 


LL et it . 
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a 4 


| 
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anh 4 — 
ate 
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CZMLBBO PERFORMANCE EXER 
OPTS DEFINITION OF OPTION. SEQ 0245 
10633 :MLX4 27-Mar-1982 19:24:42 
26: TOPS-20 BLiss-16 V2(212) 
168 5 : ae DEFINITION OF OPTION 4 27-Mar-1982 19:23:44 PA: <NEALESMEXG BLY 5. 020) 
106 7 ; 616 if .ERROUT then ERRSOFT (410, MSG3, 0); !**** OPTION 4 ERROR 10 sees 
10639 ; 6170 UP _SOFT_COUNT (.LUN, .BOARD); 
10641 : 617 
eR sa 
fee: Site ms 
10649 6176 if .ERROUT then ERRSOFT (411, MSG3, 0): !eee® OPTION 4 ERROR 11 eee 
19647 ; 6178 UP_SOFT_COUNT (.LUN, .BOARD): 
7 er me 
10651 ele sas 'x 4B5 * 
10683 ; 6184 VALUE = write (.LUN, 256, .WCPTR, .SECTOR): 
10655 : 6186 1+ 
10656 ; 6187 :_ SEE HOW SUCCESSFUL THE WRITE WAS: 
10658 : 6189 , 
10659 ; 6190 selectone .VALUE of ‘SEE “SYSERR' F 
: OR DEFINIT 
10660 ; S192 set 'OF ERROR # CONTAINED tN VALUE 
1 : 619 [1]: 
ise oie begin ix 4B6 * RETRY ALLOWED 
10665 : 6196 if RETRY (SIX, write, .LUN, 256. .WCPTR 
P , «LUN, 256, . , SECTOR) 
10669 ; 6197 regi 'THE RETRY FAILED -- SYSTEM PASAL ERROR 
1 : 6199 WHY_DROPT C.LUN] = CODE 4: 
hg 3 é 90 ERRDF (412 ‘MSGI, 0); ~ " ‘!nee® OPTION 4 ERROR 12 sxe 
10671 ; 4 02 leave LOOP:’ !JUMP JUST BEYOND END OF BLOCK * 3 * 
10878 ; 6504 _ 
a! ; 6209 end; It 4B6 * 
10676 : 6207 (2) : 
1 8 : rei begin ! 
%8 | £303 begin. or aca are 4B7 » FATAL CONTROLLER ERROR == NO RETRY ALLOWED 
! ; 6 10 ERRDF (415. HSGT. 0); “eee OPTION 4 ERROR 13 exe 
10681 ; 621 leave LOOP: 
: 18 je : j Jump Just BEYOND END OF BLOCK * 3 « 
1 : 
i ; 16 _ begin it * FATAL DRIVE ERROR -- NO RETRY ALLOWED 
pees $ fA ERRDF (414, MSG1, 0); ‘sees OPTION 4 ERROR 14 xeex 


WHY_DROPT £.LUNJ = CODE 6 
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OPTS DEFINITION OF SEQ 0246 


10689 :MLX4 27-Mar-1982 19:24:42  TOPS-20 Biiss-16 v2(212) | 
10690 : DEFINITICN OF OPTION 4 é7-Mar-1982 19:23:44  PA:<NEALE>MLX4.BLI-5 (40) | 
10692 ; 6219 DODU (.LUN): 
10693 : 6220 Leave LOOP: 'JUMP_JUST BEYOND END OF BLOCK * 3 « 
10694 ; 6221 end; 'x 488 « 
10695 : 6 . tes; 
incase : 6 
10697 ; 6 4 end: !s 4B * END OF 2ND SECTOR SELECTION LOOP 
10699 6226 PRINTB (EMT2, WRD25) 
10701 : 6228 COMMAND = CHOOSE (); 
10702 ; 6229 
107035 ; 6 decr SECTOR from HIGHEST to LOWEST do 
10704 : 6 31 begin !s 4C * START OF 3RD SECTOR SELECTION LOOP 
ai : £538 ‘ f -COMMAND egl read 
P a en 
10708 : 6235 begin 
10709 : 6236 PTR = .RCPTR: 
1pe19 ; r¢ i VALE = read (.LUN, 25€, .PTR, .SECTOR): 
10712 : 623 else 
10715 ; Sr begin 
10714 : 6241 PTR = .WCPTR: 
10713 ; 624 VALUE = CHECK (.LUN, 256, .TR, .SECTOR): 
P eng; 
or; 8 : 
19719 : 624 i SEE HOW SUCCESSFUL THE OPERATION WAS: 
10934 £948 ee 
199 § : 6249 selectone .VALUE of 'SEE "SYSERR' FOR DEFINITION 
i 2: $520 set 'OF ERROR # CONTAINED IN ‘VALUE’ 
10785 : 625 [0] : 
107 6 ; 625 
: g : og38 2 -COMMAND eql read 
° en 
g g : $3 begin 
I C 1: 6 28 if (DBL_VALUE = DOUBLE_CHECK (.WCPTR, .RCPTR, 256)) neq 0 
Py en 
10735 ; £560 in 
i : 6261 SAYUHO (LUN); 
10735 : 626 PRINTB (SAY1, MSGS): 
10736 : 626 '"ECC LOGIC FAILED TO DETECT DATA ERROR’ 
1 : 6264 PRINTB (FMT12A, ..DBL_VALUE, .DBL_VALUE): 
10738 : 6265 !*GOOD DATA: XXXXXX AT LOCATION YVYYYY" 
10739 : Q 66 DBL_VALUE = .DBL_VALUE + BUFSIZ#2: 
10740 : 6 PRINTS (FMT12B, ..DBL_VALUE, .DBL VALUE): 
10741 : 6268 !"BAD DATA: PPPPPP AT LOCATION O0QQQQ' 
1 roe ; 9 WHY DROPT [..UN] = CODE_8; 
10743 : 6270 ERRDF (415, MSG1, 0); “~!%ee* OPTION 4 ERROR 15 «eee 
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DEFINITION OF OPTION 4 


DODU (.LUN); 
leave LOOP: 
end; 
end; 
2s. 
begin 


1 a 19233:42 
27-Mar-198 


's 4C1 * 
LF RETRY (SIX, .COMMAND, .LUN, 256, .PTR, 


ee eerste —=—— _>-— -- 


SEQ 0247 


TOPS-20 Bliss-16 V2(212) 
19:23:44 PA:<NEALE>MLX4.BL1.5 (40) 


‘JUMP JUST BEYOND END OF BLOCK * 4 « 


RETRY ALLOWED 
« SECTOR) 


!THE RETRY FAILED =~ SYSTEM MPATAL ERROR 


7 {. if = — a4: 


—_ 
ERRDP 16 MSG1 
DODU (.LUN): 
leave LOOP; 
end; 


end; 
[2] : 


a 
T_C.LUN] = 
ERABP (617. MSGi, oys 


leave LOOP; 
end; 
(3] : 
Pata? bROPr t.LUN rey’ Bag 


DODD. (.LUN); 
leave (OOP: 
end; 


[4] e P 
ISOLATE () QO: 
ERRDF 4194 


DODO. ts wt: 
leave ipo, 
end; 


MSG2, 0): 
TE: .LUN] = 


43 oa 
oegin 
ISOLATE (); 


* 4(3 * 
itess OPTION 4 ERROR 18 «x 


:*e* OPTION 4 ERROR 16 «xe 
‘JUMP JUST BEYOND END OF BLOCK * 3 « 


'® 4C1 * 


* 4(2 *« FATAL CONTROLLER ERROR == NO RETRY ALLOWED 
“Tones OPTION 4 ERROR 17 xnxx 
‘JUMP JUST BEYOND END OF BLOCK * 3 « 
'n 4C2 * 


FATAL DRIVE ERROR -- NO RETRY ALLOWED 
‘JUMP _JUST BEYOND END OF BLOCK * 3 « 
'x 4C3 * 


te 4(4 * UNRECOVERABLE DATA ERROR 


bor ais OPTION 4 ERROR 19 eax« 


‘JUMP JUST BEYOND END OF BLOCK *« 3 « 
's 46C(4 * 


te 4(5 * RECOVERABLE DATA ERROR 


if .ERROUT then PRINTB (FMT10B, .CHAN): 


h BIT QQ’ 


a ST  sneiem: ear 


nr - ee te tet ee —— = 
— Se -eestestetnesnsenes 
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OPTS DEFINITION OF OPTION 


SEQ 0248 

10801 ;MLXx4 27-Mar-1982 19:24:42 TOPS-20 Bliss=-16 V2(212) 
bie fd ; DEFINITION OF OPTION 4 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.8L1.5 (40) 
10804 ; 6323 OLDSEC = .MLEL; 
iene s e ¢ OLDCHN =. : 
10807 : ° : 7 RETRY (ONE, .COMMAND, .LUN, 256, .PTR, .SECTOR) eql 5 

e en 
10809 ; 6328 
44. $ 6329 if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
10811 ; 6330 then | 
is Hf : O33! begin 
ed : 6 ; 
44 : O33 if .ERROUT then ERRHRD (420, MSG4, 0); !«*x* OPTION 4 ERROR 20 xeee 
19816 : 6335 UP_HARD_COUNT (.LUN, .BOARD): 
10817 ; 6336 end | 
10818 ; 6337 else | 
i. : 6338 begin | 
e : omy if .ERROUT then ERRSOFT (421, MSG3, 0); !**** OPTION 4 ERROR 21 xee« | 
10 5 : 634 UP_SOFT_COUNT (.LUN, .BOARD): | 
10824 ; 634 end 
10825 ; 6344 
10826 ; 6345 else | 
ime Ba ge 
+44 : ets if .ERROUT then ERRSOFT (422, MSG3, 0): !xxxs OPTION 4 ERROR 22 xuax | 
10831 : 6350 UP_SOFT_COUNT (.LUN, -BOARD):;: | 
3 s 6351 end; | 
Moats s 6352 | 
10834 ; 6353 end; ' 4C(5 * 
Hi 4 : ere: tes; 
10837 : 6356 VALUE = write (.LUN, 256, .WDPTR, .SECTOR): 
1 aS ; 6357 : : 
1 : 6358 '4 
10840 ; 6359 ! SEE HOW SUCCESSFUL THE WRITE WAS: 
10842 $36 e 
T § : 6362 selectone .VALUE of 'SEE "SYSERR' FOR DEFINITION | 
: : ; 636) set 'OF ERROR # CONTAINED IN ‘VALUE® | 
10846 : 6365 [1]: 
10867 “ oe begin 's 4(€6 * RETRY ALLOWED | 
10828 : rere if RETRY (SIX, write, -LUN, 256, .WDPTR, .SECTOR) neg 0 
20 : 6369 then :THE RETRY FAILED -- SYSTEM FATAL ERROR | 

; egin | 
10858 : 6371 WHY DROPT_C.LUNJ = CODE_4: 
10853 ; 637 ERRDF (423 MSG1, 0): !xaae OPTION 4 ERROR 23 xxax 
10854 : 637 DODU (.LUNS: 
10855 ; 6374 leave LOOP: ' JUMP JUST BEYOND END OF BLOCK * 3 « 
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OPT3 DEFINITION OF OPTION 


SEQ 0249 
10857 :MLX4 27-Mar-1982 19:24:42 TOPS=-20 Bliss=-16 V2(212) 
is $3 5. DEFINITION OF OPTION 4 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.8L1.5 (40) 
10860 ; 6375 end; 
10861 ; 6376 
oes : 6377 end; 'x 4(6 * 
198e2 ; $356 [2) 
10865 ; 6 ooa*e * 4C7 * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
10866 ; 6381 WHY DROPT C.LUN] = COD ote 
Hey 3 ° ¢ ar ces MSG1, 0); aaa OPTION 4 ERROR 24 «ane 
eon : 6 leave LOOP; !JUMP_JUST BEYOND END OF BLOCK * 3 * 
10870 ; 6385 end; 'x 4C7 * 
10871 ; 6 
i 1 : 6387 oo oe 
10873 ; 6388 peaia 'x 4(8 * FATAL DRIVE ERROR -- NO RETRY ALLOWED 
10874 ;: 6389 ERRDF (425, MSG1, 0); !**** OPTION 4 ERROR 25 «aux 
10875 : 6390 WHY DROPT £.LUN] = CODE_6; 
10876 ; 6391 DODD (.LUN);: 
10877 ; 639 leave LOOP; ‘JUMP JUST BEYOND END OF BLOCK * 3 « 
10878 ; 639 end; 's 4C8 « 
10879 ; 6394 tes; 
10880 ; — 6395 
y's 4 5 one end; '* 4C * END OF 3RD SECTOR SELECTION LOOP 
10885 5 6398 PRINTB (FMT2, WRD24): 
10884 ; 6399 6p 
10885 ; 6400 COMMAND = CHOOSE (): 
1C° ; 6401 
10887 ; 6402 ! 
He : rat } version czmlbb changed incr to incru 
Ht : 6405 incru SECTOR from LOWEST to HIGHEST do 
Hs +4 : rats begin :* 4D * START OF 4TH SECTOR SELECTION LOOP 
10893 ; 6408 if .COMMAND eql read 
10894 ; 6409 then | 
10895 ;: 6410 begin 
1 : 6411 PTR = .RDPTR: 
10897 ; 6412 VALUE = read (.LUN, 256, .PTR, .SECTOR): 
10898 ; 6413 end 
1 2 6414 else 
1 : 6415 begin 
10901 ; o7ie PTR = .WDPTR: 
1 ‘ 5 641 VALUE = CHECK (.LUN, 256, .PTR, .SECTOR): 
1 3 6418 end; 
1 3 6419 
10905 ; onse '+ 
: 3 692 ; SEE HOW SUCCESSFUL THE OPERATION WAS: 
1 : 642 
1 ; 6424 selectone .VALUE of 'SEE *SYSERR® FOR DEFINITION 
44 ; 9082 set 'OF ERROR # CONTAINED IN ‘VALUE’ 


I i stile 
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OPTS DEFINITION OF SEQ@ 0250 
10913 sMLX4 27-Mar-1982 19:26:42 TOPS=-20 Bliss-16 V2(212) 
Weal | DEFINITION OF OPTION 4 27-Mar-1982 19:23:44 PA: <NEALE>MLX4.B8L1.5 (40) 
19318 : 6427 {0] : 

10917 ; 6428 

y's 44 : 6429 if .COMMAND eql read 

10919 : 64 then 

1% y ; 1 "begin 

he ‘ : £438 if (DBL_VALUE = DOUBLE_CHECK (.WDPTR, -RDPTR, 256)) neq 0 
1 ; 64 then | 

193 4; 6435 begin 

10925 ; 64 SAYWHO (.LUN): 

109 s 64 PRIN NTB (SAY1, 

10927 ; 6438 C LOGIC FAILED to Mey DATA ERROR‘ 

10928 ; 6439 PRINS (FMT12A, ..DBL_VALUE, .DBL VALUE); 

10929 ;: 6440 iat on DATA: XXXXXX AT’ LOCAfION vVyyyy’ 

10950 ;: 6441 L_ VALUE = + BUFSIZ*2; 

10931 : 644 PRIRTE (FMT12B, 7 VALUE, .DBL. VALUE): 

109 é ; 644 BAD gDATA: PPpp BPeAT LOCATION adaada’ 

10935 ; 6444 WHY T C.LUNJ = ag 

109 3 6445 ERRDE 6 MSGI, 0): “Teeee OPTION 4 ERROR 26 «xxx 
10935 : 6446 DODU (.LUN): 

10936 ; 6447 leave LOOP; ! JUMP JUST BEYOND END OF BLOCK *« 4 « 
at ; ert: end: 

19936 : 6450 end; 

10940 ; 6451 

99. : ot2¢ 2° i gam 

1 ¢ ; 645 begin 'n 4D1 * RETRY ALLOWED 

10943 ; 6454 

10944 ; 6455 if RETRY (SIX, COMMAND, .LUN, 256, .PTR, .SECTOR) noe 

10945 ; 6456 then ' THE RETRY FAILED -- SYSTEM FATAL ERROR 
ees $ 6457 ope 

10947 ; 6458 WH Re Lun? = CODE_4; 

10948 ; 6459 ERRDP 0627 , 0); 'xeee OPTION 4 ERROR 27 «xxx 
10949 : 6460 DODU (. ONS: 

10020 3 6461 leave LOOP: ! JUMP JUST BEYOND END OF BLOCK * 3% 
10951 ; oree end; 

1 a6 646 

109535 ; 6464 end; 's 4D1 * 

10954 ; 6465 

10955 ; C666 [2] : 

: 26 : yer th ~ . Cusp * * 4D2 * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
1 38 : o4G? ERRDP O18 MSGI, “oye “Teens OPTION 4 ERROR 28 xxax 

1 ; 6470 DODU (.LUN): 

1 $ 6471 pol LOOP; ' JUMP JUST BEYOND END OF BLOCK *« 3 « 
1 1: 647, end: 's 4D2 * 

1 ° 647 

1 ; 6474 (3) : 

1 3 6475 a My 'x 4D3 * FATAL DRIVE _ ERROR -- NO RETRY ALLOWED 
Ie? Z oee8 or “g ey ey’ vik ior OPTION 4 ERROR 29 «« 

10967 : 6478 DODO” ih LUN): 


——_— ee eee eee} -_—_ —_~ “ 
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E 
DEFINITION OF OP SEQ 0251 


10969 ;MLX4 27-Mar-1982 19:26:42 TOPS-20 Bliss-16 V2(212) 
y's 3 DEFINITION OF OPTION 4 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.8L1.5 (40) 
10972 ; 6479 leave LOOP; :JUMP_JUST BEYOND END OF BLOCK * 3 « 
10973 ; 6480 end; 's 4D3 * 
10974 ; 6481 
10975 ;: ones «oe a 
Igoe 3 648 renin 's 404 * UNRECOVERABLE DATA ERROR 
10977 ; 6484 ISOLATE (); 
10978 ;: 6485 ERRDF (430, MSG2, 0): !'xaxe OPTION 4 ERROR 30 «ex 
10979 : 6486 WHY DROPT £.LUN] = CODE_?: 
10980 ; 6487 DODD (.LUN): 
10981 ; 6488 leave LOOP; ‘JUMP JUST BEYOND END OF BLOCK « 3 « 
eat : 6489 end; 'e 4D4 * 
10983 ; 6490 
1 ; 6491 (5] : 
1 5; 6492 es 'x 4D5 « RECOVERABLE DATA ERROR 
10986 ; 6493 ISOLATE (); 
10987 ; 6494 i 
10988 ; 6495 if .ERROUT then PRINTB (FMT10B, .CHAN): 
10989 ; 6496 
10990 ; 6497 * BIT aQ' 
10991 ; 6498 OLDSEC = .MLEL: 
4 s 6499 OLDCHN = . ; 
10993 ; 6500 
10994 ; 6501 if RETRY (ONE, .COMMAND, -LUN, 256, .PTR, .SECTOR) eql § 
10995 ; 650 then 
i sa § 650 
10997 ; 6504 if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
10998 ;: 6505 then 
10999 ; 6506 begin 
11000 Ps 6507 , 
a 4 : oo if .ERROUT then ERRHRD (431, MSG4, 0): !*eee OPTION & ERROR 31 «ee2 
11003 ; 6510 UP_HARD_COUNT (.LUN, .BOARD): 
11004 ; 6511 end 
11005 ; 6512 else 
11009 ; a sii 
Hy ss ; Get? if .ERROUT then ERRSOFT (432, MSGS, 0); !*ee* OPTION 4 ERROR 32 eee 
11010 ; 6517 UP_SOFT_COUNT (.LUN, .BOARD): 
11011 : 6518 end 
11 1¢ $ 6519 
110135 ; 6520 else 
Hos: gp 
Y ag 6598 if .ERROUT then ERRSOFT (433, MSG3, 0): faxes OPTION 4 ERROR 33 xen2 
1018 ; 6525 UP_SOFT_COUNT (.LUN, .BOARD): 
11019 ; 65 $ end: 
11020 ; 65 
44 1; $2 , end; 'x 405 * 
Py es; 
110 4 : $2¢5 
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DEFINITION OF OPTION 


CO~oO 
MMIII 
OOOO 


AKRARAARAAOAAKH 
ms 


Bete Ge Be Ge Be Ge Se Be Be Be Se Be Be te Se Se Se Se Se Se Fe Se Ge Se Ge Se Be @e Pe ee Be 
MAW 


OWDNAULSWN —O COON MSWN OO 


AAO 
MMIII 


MW 


AAO 


— TE eee ia —---— — 


SEQ 0252 
27-Mar-1982 19:24:42 TOPS-20 Bliss-16 v2(212) 


DEFINITION OF OPTION 4 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.8L1.5 (40) 


-* 4D * END OF 4TH SECTOR SELECTION LOOP 
‘* 4 * END OF TEST FOR AN ACTIVE UNIT 


. Test to see if this uut's address space is 
: be read for soft errors. This test is 
is intended for DMT purposes. 


‘Is the background pattern to be read 


{ 

version czmlbb changed incr to incru 

, incru SECTOR from LOWEST to HIGHEST do 
if read (.LUN, 256, RBUFF, .SECTOR) eql 5 
then 


re ps aad 

ISOLATE (); !Find the failing bank and board no. 
if .ERROUT then PRINTB (FMT10B, .CHAN): 

Print where the error is 


: Save the contents of the ML error location 
: register so we can compare it to the new 

: contents of this register after the retry. 
: This is done to classify the error. 


-MLEL; 


Do a classify ratty call. If the same error 
occures then classify it as a hard error. If 

a different error occured or the error went away 
then classify it as a soft error. 


OLDSEC 
DCHN 


memes ate oe Co) 
Tf 


4 RETRY (ONE, .COMMAND, .LUN, 256, .PTR, .OLDSEC) eql 5 
en 
i 


: The same error occured so see if it is at the same 
; sector and channel number, if so then classify 

! it as a hard error else classiy 1t as a soft 
error. 


if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 


teen Lee ee _— - ———— 
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OPTS DEFINITION OF OPTION 3 SEQ 0253 
11081 ;MLX4 27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212) 
soak i. DEFINITION OF OPTION 4 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.8L1.5 (40) 
11084 ; 6583 then 
ie : 6286 begin ‘Same error occured ‘hard' 

11087 : 6286 if .ERROUT ‘Print error if enabled 
11089 : ret ee 
y's : e 6283 ERRHAD (434, ‘Error number 
11091 ; P 65 MSG4, ‘Error message 
11088 : 6591 3 ‘Additional message routine 
ie: we 
11095 : 6594 UP_HARD_COUNT (.LUN, .BOARD): 
1109 oeee “— 
; else 
By 4 : £397 begin ‘Not the same error ‘soft’ 
11100 : 6599 if .ERROUT ‘Print error if enabled 
11102 : $601 es 
3 n 
11108 5 p cont ERRSOF T (435, ‘Error number 
11104 ; P 660 MSG3, ‘Error message 
44. 5: eons 4 0): ‘Additional message routine 
: end; 
11107 ; ORS 
iiss j rrr! il al al (.LUN, .BOARD): 
Ps en 
11110 ; 
nite : ott ia ; ‘Not the same error ‘soft' 
é gin 
17113 ; 661 
11116 ; oei8 if .ERROUT ‘Print error if enabled 
Hie ; $618 ies 
° n 
WITS : P 6616 ERRSOFT (436, ‘Error number 
BBS : P 6617 MSGS, ‘Error message : 
11120 ‘ red 0); ‘Additional message routine 
11121 : 6620 : 
Mf ‘ g 6621 UP SOF T_COUNT (.LUN, .BOARD); 
; end: 
11126 ; 66 : 
11125 ; 6624 end; 
th :; 
P end; 
11128 ; 
11129 ; 66 end; :* 3 * END OF LOOP THAT COMPLETELY TESTS 1 UNIT 
1 0; o0 0 end; '* 2 * END OF LOGICAL UNIT SELECTION LOOP 
111 : : 6631 return: 
111 § 6632 end; 's 1 * END OF ROUTINE 
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INITION OF OPTION 4 SEQ 0255 
7MLX4 27-Mar-1982 19:24:42 TOPS 
: DEFINITION OF OPTION 4 7-Mar-1982 19:23:44 PA:< 
9627 010600 MOV SP,.RO ; SP,* 
962722 104414 TRAP 14 
06¢7 4 06399 000026 mov 26(SP) .RO 3 LUN,* 6007 
1627 66 0344 000052 MOV #LOW. SECT, 52(SP) 
06274 $9 ADD = RO, 52 SP) 
4 162744 66 00 000050 MOV #TOP.SECT,50(SP) 
162752 50 ADD RO,50(SP) 
16275 : 1 000050 MOV @50(SP) .R1 
5 06 < 16 17 04 000052 MOV @52(SP) -R4 3 *,SECTOR : 
07 06z Giese 000026 3$: MOV 26(SP) ,-(SP) ; LUN,* 6009 | 
208 062774 01 46 0004 MOV #400,-(SP) 
99 063000 016646 000034 MOV 34(SP),-(SP) : WOPTR,* 
10 063004 01044¢ MOV R4,-(SP) : SECTOR, * 
11 0630C 767 162412 JSR PC WRITE | 
lg 065012 01 ; MOV RO,R : *, VALUE | 
213 06501 000001 CMP R541 : VALUE,* 6015 | 
14 063¢ 9 10 BNE 4$ 
15 063¢ 12746 MOV #6,-(SP) : 6021 
16 063 $ 012746 045424 MOV AWRITE ,-(SP) 
17 063( 16646 2 MOV 42(SP) ,.-(SP) : LUN,* 
18 063. 12746 000400 MOV #400,-(SP) 
19 063C 16646 000050 MOV 50(SP) , -(SP) : WDPTR,* 
0 063C 6 10446 MOV R4,-(SP) : SECTOR,* 
1 063050 004767 163150 JSR PC RETRY 
¢ 063054 062706 000014 ADD = #14, SP 
16306C 7 TST RO 
¢ re 06. 16600 000036 Rov 36(SP) RO LUN, * 6024 
IS SUF e & e 
6 06 3¢ 0 119760 000004 034446 MOVB #4,WHY.DROPT(RO) 
965076 104455 55° 0025 
Dé 102 011090 MSGI 
1 0€ 106 000009 000036 (SP) .RO : LUN,* 6026 | 
063112 104451 1 
163114 35 6$ : 6027 
06: 1 027 000002 4$: R5,#2 : VALUE,* 6015. 
631 36(SP) RO : LUN,* 6034 
0631 12780 ait 034446 $8 Gaiy BROPT (RO) | 
063136 1044 55 ; 6035 | 
16314 622 
0 06314 -WORD MSG | 
4e 0¢ 146 016600 000036 MOV 36(SP) RO ; LUN,* 6036 
4 06313 104451 TRAP 3s‘ 5; | 
44 0631 4 15 BR 6$ ; 6037 
45 06 136 0527 000003 5$: CHP R> #3 ; VALUE, * 6015 
“3 163164 1 eee TRAP =‘ 5 : 6042 


Le — -—. 





6 
Sa a e's PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 544 


DEFINITION OF OPTION 4 SEQ 0256 
1249 sMLXG go —far= 1982 19:24:42 TOPS 
1 29 $ DEFINITION OF OPTION 4 7-Mar-1982 19:23:44 PA:< 

3 -WORD 623 
11070 - WORD a 








Ok et ed ed ed 
aed a 2d ed eed ed wd 
MPMI Pony 
MViVcAAWN 
Nigh uno 







“WORD 
itet 000036 MOY 36(SP) RO : LUN,* 6043 
2 112766 000006 034446 move #6.WHY .DROPT (RO) seal 
11589 Oposes (00022 —~ 2 ; eed 
11260 peesne 000010 73: ADD #10,SP : 6008 
11261 204 InC R4 > SECTOR 6007 
1126¢ 020401 8$: CMP R4.R1 : SECTOR,* 
1126 1 1660 BLOS 6. 3$ 
11264 012716 007332 MOV #WRD24, (SP) : 6051 
11265 012766 006160 MOV #FMT2,-(SP) 
11266 4 746 000002 MOV #2,-(SP) 
11267 10600 MOV SP,RO : SP,* 
11268 104414 TRAP ‘14 
11269 767 162712 JSR PC, CHOOSE ; 6053 
11270 010002 MOV > *, COMMAND 
11271 017666 000054 000046 MOV a54 (SP) ,46(SP) : 6058 
11 re 017604 000056 MOV a56(SP) RG : *, SECTOR 
112 000167 001350 JMP 
11274 005001 9$: CLR R1 : 6061 
11275 020227 045612 CMP R2,MREAD : COMMAND. * 
11 i: 001014 BNE 10$ 
11 005201 INC R1 
11278 06: 016603 000042 MOV 42(SP) .R3 : RDPTR,PTR 6064 
11279 016646 000032 MOV 32(SP) ,=(SP) : LUN,* 6065 
11280 16 012746 000400 MOV #400,-(SP) 
11281 2 010346 MOV R3,-(SP) : PTR,* 
11 82 4 010446 MOV R4,-(SP) : SECTOR,* 
i 8 $ 004767 162260 JSR PC READ 
17.585 16603 000034 10$: MOV (SP) .R3 : WDPTR,PTR 6069 
11 53340 016646 000032 4OV 2(SP),=(SP) : LUN,* 6070 
11 63344 012746 000400 MOV #400,-(SP) 
11 63350 010346 MOV ~~ (SP) : PTR,* 
11 63352 010446 MOV R4,=(SP) : SECTOR,* 
11 53354 767 162420 JSR PC, CHECK 
11291 06 10005 11$: MoV : *, VALUE 
11 é 1103 BNE 5$ : 6077 
11 1 1 : 2 
11 103402 BLO 13$ 
11295 167 001012 12$: § JMP 28$ 
11 74 016646 000044 13$: MOV 44 (SP) ,-(SP) : WOPTR,* 6086 
1 90 16646 000054 MOV 54(SP),-(SP) > RDPTR.« 
1 1 46 000400 MOV #400,-(SP) 
1 S00 10 160712 JSR PC ,DOUBLE . CHECK 
11301 0 MOV RO, 60(SP) : *,DBL.VALUE 
11309 53426 BEQ 
11 & 


000042 MOV 42(SP),=(SP) ; LUN,* 6089 











SS  -es a 
- ~-~- —_——— — 
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ZMLBBO PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 245 
OPT4 DEFINITION OF OPTION % SEQ 0257 
11305 ZMLX4 g7-Mar-1982 19:24:42 TOPS 
11306 : DEFINITION OF OPTION 4 7-Mar~1982 19:23:44 9 PA:< 
11309 oeacse 903752 432986 MOV anSea tee) 6090 | 
11310 063442 O15 746 007075 MOV #SAY1,~-(SP) . 
11311 06 012746 MOV #2,-(SP) | 
11318 06368 tosene Trap 44° diets | 
11314 06 016616 000066 MOV 66(SP), (SP) 3 DBL.VALUE,* 6092 | 
11315 06 017646 MOV @66(SP) ,-(SP) ; DBL.VALUE.« | 
11319 oe O15746 608 Moy mB ees 
11319 063800 tOeeys exe 4°80 ican ! 
115 0 06 502 062766 010000 000074 ADD #10000, 74(SP) : *, DBL. VALUE 6094 | 
11321 06 51 016616 000074 MOV 74 (SP) ° (SP) ; DBL. VALUE, * 6095 
113 : 514 of $46 000074 MOV @74(SP5,=(SP) ; DBL.VALUE,* | 
11323 063520 012746 006756 MOV #FMT12B.-(SP) 
11324 063524 012746 000003 MOV »= (SP) | 
1g Senses 2600 a he 
11 $ be 534 016601 000064 MOV 64(SP),R1 : LUN,* 6097 
11 240 112761 000010 034446 MOVB #10,WHY.DROPT(R1) 
11329 063546 104455 TRAP = 55 : 6098 
11 355 24 «WORD 624 
1 1 33¢ 11070 f D MSG1 
4 $ 063556 016600 000064 HOV 64 (SP) ,RO ; LUN,* 6099 
" 5 06: $4 30599 000050 ai ADD #90.SP ; 6100 
" i 6 372 0 0387 000001 15$: CMP R541 : VALUE, * 6077 
11 163600 Of ore 000006 MOV #6,~-(SP) ; $108 
11340 063604 010246 MOV R2,-(SP) : COMMAND, * 
11341 063606 016646 000046 MOV 46(SP) ,-(SP) : LUN, * 
11 ¢ 06 612 012746 000400 MOV #400,-(SP) : 
11 jt 561 10346 MOV R3,-(SP) ; PTR,* 
11344 0636 10446 MOV R4,-(SP) : SECTOR.* 
11345 0636 767 162376 JSR PC_RETRY 
11346 063626 2706 000014 ADD = #14, SP 
iH wrt HA bee 
11 3 0636 $661 000042 MOV 42(SP) RI : LUN,* 6111 
11 9 06 3¢ 1 $1 000004 034446 MOVB #4,WHY.DROPT(R1) 
1135 06 3¢ 9 104455 TRAP 55 ; 6112 
1 é 063¢ 29 -WORD 625 
Hie Qelese Gus oo 
11355 16366 6600 000042 MOV 42(SP) RO : LUN,* 6113 
i Se ss 000002 168 a iss, } VALUE 8077 
; { . 6 * 

11359 063674 001015 BNE =—_- 178 | 


Oe 
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OPTS DEFINITION OF OPTION & SEQ 0258 
11361 ZMLX4 27-Mar-1982 19:24:42 TOPS 
1 : DEFINITION OF OPTION 4 27-Mar-1982 19:23:44 PA:<— 
11364 063676 016601 00004 MOV 42(SP) ,R1 ; LUN,* 6121 
11365 063702 11 $) 900008 034446 MOVB #5, WHY.DROPT(R1) | 
11 163710 104455 TRAP «455 : 6122 | 
1 16371 900626 -WORD 626 | 
11 963714 011 .WORD MSG1 | 
11 JE 716 - WORD 
11 1637 000042 MOV 42(SP) RO ; LUN,* 6123 | 
11 53726 TRAP ‘51 : 
11 637 - BR 19$ : 6124 
11 : 000003 17$: CMP R543 ; VALUE, * 6077 
11 BNE 18$ 
11 TRAP 55 : 6129 
11 537 -WORD 627 
11 5374 -WORD MSG1 
i LS, 000042 : nov 42(SP).R1 LUN 6130 
Ie e e Pa 
1 0¢ 738 000006 034446 MOVB #6,WHY.DROPT(R1) 
11 637 MOV R1,RO ; LUN,* 6131 
11 Dé 762 TRAP 
11 0637 BR 19$ : 6132 
11 0¢ 766 000004 18$: CMP R5 #6 : VALUE, * 6077 
11 16377 153332 JSR PC, ISOLATE ; 6137 
11 06 TRAP =_- 55 : 6138 
11 0¢ -WORD 630 
11390 ¢ “WORD One 
tl. e 
11 é 1 00042 MOV 42(SP) .R1 ; LUN,* 6139 
11 964014 112761 000007 034446 MOVB #7,WHY.DROPT(R1) 
11 0¢ é 4 1 MOV R1,R0 : LUN,* 6140 
11 066 706 9000 6 19$: ADD #26,SP : 6141 
17 D6 120 20S: JMP 94$ 
" 064 7 000005 21$: CHP R545 3 VALUE,* 6077 
11399 0¢ ? 153262 JSR  —- PC, ISOLATE : 6146 
11400 06 2 67 000001 116202 BIT #1, ERROUT ; 6148 
11401 064 6 3 BEQ 22 
11402 0€ 1 150324 MOV @ML .REG+42,R1 
11403 0¢ 6201 ASR R1 
114 Je S 01 ASR R1 
114 JC 7 ° 1 ASR R1 
114 i 7 5201 s ASR R1 
11409 0641 01 177700 BIC #177700,R1 
W414 ne yee 0 MOV MEATIOB (SP) 
11418 ne 11 rie iti MOV #2,-(SP5 : 
Wale re 120 104414 TRAP 794 a | 
11415 0641 bese 000006 ADD #6,SP | 


———— LN A ce ee —-— _ —_ . 
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ee ee ed eel eed 
PREARARR 


hare -tenr- ter trearctunr-tenortoee eercerteeree en ee ee ee 
patel hieetenkeakeusteaten te ee ee eet 
HSHHHRHKRLRAD 
> Ss 
w NOUSWIN=0 00~) 


=—> 
—_— kl ed ce ed ee ce ce el eed el ee ce eld eed ee 


BEEP RPP LPP HRPRAL 


. 
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> HHHKHLHHLHKRAHR 
Why © aul 
PESSSSSRASSERSSRELERE 


ed ek ceed ceed ceed eed el eed eed 
MVIMIVIAAMVIMNN SD HRRAL 
NOUS UINI =O Ooo Onn ee 


ee ee ee eee —y 


TRS 


KRRAAAAARORORORRRS SO OS 


PORE 


SEOSSES 


te ed ee rel ld eel el el ed eed eee ee eee eed 


~~ 
~ 
ss 


ag 


SESE 


ed ed ceed eed 


SEES 


ek ed ed ed ed 
Vivi 


dd eed end med od 


ENSRRVSROE 


enon 


SSNISSLSVYMUEEE 


~— 
OfOoroc 





= 


™ 


Sis 


EX 
OPT 


162012 
14 
150162 


000050 
150144 


177700 


000001 


000042 
150022 
133096 


000001 


000001 


000046 


115762 


115724 


115702 





23$: 


24$: 


25$: 


MOV 
MOV 





DEFINITION OF OPTION 4 


@ML .REG+44 ,46(SP) 
QML .REG+42,R1 


R 

#177700,R1 
R1,50(SP) 
R2,-(SP> 
46(SP) ,-(SP) 
#400,-(SP) 


See enn nk 46 (SP) 


50(SP) ,RO 
ep meena RI 


R 

#177700.R1 

R1,.R0 

ra ERROUT 

3g 

54 

631 

MSG4 

42(SP) ,=(SP) 
D,-(SP) 

PC ,UP.HARD. COUNT 


* ,OLDSEC 


> *,OLDCHN 


COMMAND , * 
LUN,* 


PTR,* 
SECTOR,* 


* ,CLDSEC 


; OLDCHN,« 


LUN, * 


; 


7-Mar-1982 19:24:42 
He 19:23:4 


7-Mar-19 


SEQ 0259 


4 PAz< | 


| 
| 
6154 
| 


— 


6157 


LLL Le 


6161 


Se ee ~ ae atmeenil 





Sn 








MLBBO PERFORMAN 

T4 DEFINITION OF OPTION & 
11473 

are 

1167 1044 

as Rae Sita 

114 

11480 016646 90004 
11481 be 74 16748 1e7765 
114 964400 76 153500 
114 404 022626 

114 066406 016616 000042 
TSde Be Sits Sse 
11487 O6442s b1bece 

11488 064424 004767 160774 
11489 064430 010005 

Haat Stee, $3tgz 000 
11492 064440 012746 

11498 46 B13 966 045424 
11494 064450 016646 000054 
Gas Sites iecee au 
11482 Oeedee Gioecg 
11499 138 062706 00001 
11500 064476 005700 

11501 500 001456 

11808 Oeesog 41585, 990050 
11305 gedete gpeese 

11506 5 p 011070 

115 522 90000 

11508 064524 (116600 000050 
Hider more 

11511 0645 20527 00000 
11512 54540 TAL ‘ 
1131% O6tsee S1See1 300050 
11519 206 104653 

Help Ae Sane 

1151 1 000050 
Hes? RE Ate 

1 527 000003 
He $ 1016 

Hiss SaaS es 

1S ee 

115 


a 


034446 


034446 


29S: 


30$: 
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DEFINITION OF OPTION 4 


57 
633 
MSGS 


#400,-(SP) 
72(SP) ,-(SP) 
R4,-(SP) 

PC RETRY 

#14,SP 

RO 

32$ 

50(SP).R1 

#4 WHY DROPT(R1) 


634 
MSG1 


50(SP) RO 
51 

a5 92 

30$ 

50(SP).R1 
#3.WHY.DROPT(R1) 


635 
MSG1 


gy (SP) RO 


eens 


LUN, * 


: LUN,* 


WCPTR,* 
SECTOR,* 


; *, VALUE 


: VALUE,* 


LUN,* 


; WCPTR,* 
; SECTOR,* 


; LUN,* 


LUN, * 


; VALUE ,* 


LUN, * 


LUN, * 


: VALUE,* 


5 


7-Mar-1982 
7-Mar-1982 


19:2 
19:2 


SEQ 0260 
1:24:42 


3:44 


TOPS 


PA:< | 


6199 
6200 


6201 


6202 
6190 


6209 
6210 


6211 


6212 
6190 


6217 


0 orm oe a 


Seprrsererer 


& 
2S 


td ed eed 
MIMI 


kee ed 2d ed ed 
PEAR RATA 
Wiviwn 
REEES 
NOUS -—oO w WSS 
oa 
<4 
far 


ERR 
NN 


3 


res 

3 

2 & 
ss2es 


ou 


= 
&MOr 


MMMM 
© 
on 


BENS RENe Se 
FESEPEE 


SSNS 


SNNNNS 


MVtwAAuM 
Urvre 
Sew 


PERERER 


™N 


ee ed ed etd 2 2) ed 
yt Ae yeep te 
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~~~ 
ao 
NASSS 


Sas 


SSS 


Wun MVNA 
S390 VIS 


w 





PERF ORMAN 
DEFINITION 0 


~—O—— 
“Nw 
© 


23 


Seseer 


[SSR e= 
VN 
NONMO—= > = : 
> Sa8sse aa os 
@RNANRAM NR OOOO 


Oona 
NAAOOAW 


ExES= 


6 
7 
P) 





034446 


000052 


35$: 


36$: 


37$: 


38$: 
39$: 
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DEFINITION OF OPTION 4 
50(SP) ,R1 

#6, WHY .DROPT(R1) 

R1,RC 

ri + 

#16,SP 


R4,46(SP) 
34$ 


9$ 
#MURD25 , (SP) 


#FMT2,-(SP) 
et ite 


1 
PC, CHOOSE 


a62(SP) ,52(SP) 
Q60(SP) -R4 
59$ 


RD AREAD 
36$ 

R1 

56(SP) .R3 
36(SP) . =(SP) 
#400,-(SP) 


R4,-(SP) 
p 


60(SP) ,-(SP) 
70(SP) ,-(SP) 
#400 


-(SP) 
PC -DOUBLE . CHECK 
RO.64(SP) 
ae 


46(SP) ,-(SP) 
PC ,SAYWHO 


a esentianesnens _ 


: LUN,* 
> LUN,* 


3; SECTOR 
; SECTOR,* 


; SP,* 


; *, COMMAND 
; *,SECTOR 


3; COMMAND, * 


; RCPTR,PTR 
> LUN,* 


; PTR,* 
; SECTOR,* 


WCPTR,PTR 
LUN, * 


PTR,* 
: SECTOR,* 
> *, VALUE 


WCPTR,* 
RCPTR,* 


* ,DBL.VALUE 
; LUN,* 


Sa 





te ed eed ed eed ed od ed od eed 
ed ed ed ed ed 2d ed ed ed 





BOCA. 
MEW =O O@O~1aOunst 


FETETETSSSRSSS SR RE SS SSS SS ER EERE EES 


SOPNVORORRORNO PooRS 


PUPS AAA UA RU 


ee ee ee ee ee eee ee ee ee 


MLBBO PERFORMANCE EXE 
T4 DEFINITION OF OPTI 
11585 
11 
118 5 012716 
Hae ae iar 
11591 3108 01 
1e08 Ree sns 104414 
11593 0651 016616 
11594 Beeise 01 ore 
11595 065114 012746 
11339 $93! 1274 
11597 065124 01 
Hass eles ati 
11600 3128 819616 
11601 065142 017646 
11006 514 O15 46 
1160 15 4 746 
11604 065156 010600 
14605 1 104414 
17 162 016601 
1160 196 112761 
11008 174 104455 
11 176 37 
Hele Bees See 
A1ei¢ 016600 
1161 Wer Fa 
520 


[ser 
ON=O 
Now 
eN 


ooo 
nod wend ed od 
SRERESESS 
NAO 


Ss 


NS 
AAR 


od eel 
ed cock 
r~ 


Sos 


ou—— 


— 
Siete 


~ 
4 
& 
“NIN 


000046 


000002 
000046 
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000100 


034446 


034446 


sMLX4 


40$: 
418: 


42$: 


DEFINITION OF OPTION 4 


#MSG5, (SP) 
#SAY1 ,~(SP) 
#2,-(SP) 


72(SP), (SP) 
a72(SP}.~(SP) 


70(SP) ,R1 
$10.WHY .DROPT (RI) 
MSG1 


cPCSP) AO 
#54 ,SP 


8 
46(SP) ,R1 
geeWHY .DROPT (RI) 


640 

MSG1 
46(SP) ,RO 
51 

45$ 

R5 #2 


46(SP),R1 


SP,* 
DBL . VALUE ,* 


; DBL.VALUE,* 


. SP,* 


* ,DBL . VALUE 
DBL . VALUE , * 
DBL . VALUE , * 
SP,* 

LUN,* 


LUN,* 


VALUE , * 


COMMAND , * 


> LUN,* 


: PTR,* 
; SECTOR,* 


LUN,* 


LUN,* 


> VALUE,* 


LUN,* 


5 


7-Mar-19 
7-Mar-19 


SEQ 0262 


19:26:42 TOPS 
19:23:44 PA:< 


6262 


6269 
6270 


6271 
6272 
6249 
6280 


2 


6285 
6284 


6285 


6286 
6249 


6293 


Sc 


a a ee 





eens — 
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T4 DEFINITION OF OPTION 4 SEQ 0263 
11661 “MLX4 37-Mar-198 19:24:42 TOPS 
11648 ; DEFINITION OF OPTION 4 7-Mar-1982 19:23:44  PA:< 
11644 065 30 112761 000005 034446 MOVB #5,WHY.DROPT(R1) 
11645 065 106455 TRAP 55 : 6294 
11666 5 000641 «WORD 641 | 
11647 065 11070 .WORD MSG1 
11648 069 4 -WORD 0 
11649 065 016600 000046 MOV 46(SP) RO : LUN,* 6295 
11650 065 52 104451 TRAP =‘ 1 | 
11651 065 37 BR 45$ : 6296 
11636 5 527 000003 43$: CMP R543 3 VALUE,* 6249 | 
116 § 1014 BNE 44$ 
11654 3 104455 TRAP 55 : 6301 
11655 000642 .WORD 642 
11999 Senure Suse fom 
11658 065374 016601 000046 MOV 46(SP),R1 3; LUN,* 6302 | 
11659 065400 112761 000006 034446 MOVB #6,WHY.DROPT(R1) 
11660 065406 010100 MOV R1,RO ; LUN,* 6303 | 
11662 ese1s  OnGeoe BR” 6304 | 
11608 5414 020397 000004 446$: CMP RS AG : VALUE,* 6249 | 
11664 3420 1021 BNE 47 
11665 0654 67 151704 JSR PC, ISOLATE : 6309 
11666 34 6 104455 TRAP =“ 555 : 6310 
1166 430 000643 «WORD 643 
11668 065432 011120 .WORD MSG2 
11669 54 -WORD 0 | 
11670 0654 1 000046 MOV 46(SP),R1 : LUN,* 6311 | 
11671 06544 000007 034446 MOVB #7,WHY.DROPT(R1) 
11672 06545 MOV —s-RT_RO ; LUN,* 6312 | 
11673 06545 TRAP ‘51 | 
11674 065454 000032 45$: ADD #52. SP : 6313 
11675 065460 002472 46$:  JMP 94 
1676 $54 $00008 47$: cmp RS .A5 : VALUE,* 6249 
116 3478 151634 JSR PC, ISOLATE : 6318 | 
11879 $547 000001 114554 B17 #1,ERROUT : 6320 | 
11 146676 MOV QML .REG+42,R1 
1 5551 ASR R1 
11 5551 ASR R1 
11 ASR R1 
17 ASR R1 
1 ASR R1 
11 55524 ASR R1 
1 177700 BIC #177700 R1 
11690 32 006640 MOV #FMT10B,-(SP) 
11691 06 000002 MOV #2,-(SP5 | 
11698 MOV SP,RO : SP, 
*1693 06 TRAP = ‘14 | 
11694 06555 ADD #6,SP | 
11695 065554 146632 000052 48$: MoV @ML .REG+44,52(SP) : *,OLDSEC 6323 
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177700 
: 


000052 
000400 


iE 
000005 
146534 


000054 
146516 


177700 


000001 


6 
146374 
151450 


000001 


000001 


000052 


114334 


114276 


114254 





49$: 


50$: 


51S: 





DEFINITION OF OPTION 4 
@ML .REG+42,R1 


R 
#177700,R1 
R1,54(SP) 
#1,-(SP) 
R2,-(SP) 
52(SP) ,-(SP) 
#400,-(SP) 


@ML .REG+44 ,52(SP) 


54(SP) RO 
@ML .REG+42 ,R1 


R 
#177700,R1 
R1,RO 


#1, ERROUT 
49$ 


46(SP) ,=(SP) 
PC.UP.HARD. COUNT 
#1, ERROUT 


rt — 


* ,OLDCHN 


COMMAND , * 
LUN,* 


3; PTR,* 
; SECTOR,* 


* ,OLDSEC 
OLDCHN, * 


LUN, * 


SEQ 0264 


7-Mar-1982 19:24:42 TOPS 
7-Mar-1982 19:23:44 PA:< 
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034446 


034446 


DEFINITION OF OFTION 4 


646 
MSG3 


0 

46(SP) ,-(SP) 

PC » sort. COUNT 
(SP)+. (SP)+ 
46(SP), (SP) 
#400,-(SP) 
52(SP) ,=(SP) 
R4,-(SP) 


PC WRITE 
RO.R5S 

R5.#1 

55 

#6,-(SP) 
#WRITE ,-(SP) 
60(SP) . (SP) 
#400,-(SP) 
66(SP) ,-(SP) 
R4,-(SP) 

PC RETRY 
#14,SP 


58$ 
54(SP).R1 
geeuit .PROPT CRY) 
647 
MSGI 
54(SP) RO 
51 
aS #2 
56$ 
54(SP).R1 
gaeWHY -DROPT (RI) 
650 
MSGI 
4(SP) RO 


54(SP) ,R1 


7-Mar- 


7-Mar- 


SEQ 0265 


TOPS 


PA:< 


6350 


6317 
6356 


iii nes a LE Ee 
nel Ee ee - 
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‘OPT4 DEFINITION OF OPTION 4 SEQ 0266 

| 11809 2MLX4 7-Mar-1982 19:24:42 TOPS 
11810 : DEFINITION OF OPTION 4 7-Mar-1982 19:23:44 PA:< 
11812 066244 112761 000006 034446 MOVB #6,WHY.DROPT(R1) 
11 18 166252 015190 MOV R1,RO 3 LUN,* 6391 
11814 0662 104451 TRAP 1 
" 13 2666 796 000040 S7$: ADD #40,SP : 6392 
11 13 66: Th 000016 58$ ADD #16,SP : 6331 
11818 06627 304 DEC 4 : SECTOR 30 
11819 06627 000052 59$ CMP R4,52(SP) : SECTOR,* 
11 1662 7¢ 4 BLT 60$ 
11821 066306 16 17661 JMP 35$ 
11 Q 966304 012716 00733 60$ MOV #WRD24 , (SP) ; 6398 © 
11 966310 012746 0061 MOV #FMT2,=(SP) 
11824 066314 012746 000002 MOV #2,-(SP) 
11825 066320 01 MOV SP,RO : SP,* | 
11826 966322 104414 TRAP 3s ‘14 | 
11 166 3- 767 157636 JSR PC, CHOOSE : 6400 | 
11 66 330 10002 MOV : *, COMMAND | 
11829 06633z Or 666 000064 000064 MOV 64 (SP) .64 (SP) : 6405 
11 166340 017 MOV G66 (SP) .R4 : *,SECTOR | 
11831 066344 167 001120 JMP $ | 
11 iY. 29 001 61$: CLR R1 : 6408 | 
11 96635 0227 045612 CMP R2,AREAD ; COMMAND, * | 
11834 066356 001014 BNE 628 | 
11835 066366 2201 INC 
11 166362 016603 000052 MOV 52(SP) .R3 : RDPTR.PTR 6411 | 
1 166366 016646 000042 MOV 42(SP) ,=(SP) : LUN,* 6412 | 
11 66 12746 000400 MOV #400,-(SP) | 
11 06¢ 76 01 728 MOV R3,-( : PTR,* | 
11 9 066 09 1044 MOV R4,-(S?) s SECTOR,* 
} } 06640 167 157204 JSR PC READ 
11 § Oe 8 1660 4 628: MOV 44(SP) ,R3 : WOPTR,PTR 6416 
11 166414 01 MOV 42(SP) ,-(SP) : LUN,* 6417 
11 5 JC 0 MOV 400,-( 
11 1664246 MOV 3,-(SP : PTR,* | 
11 066 MOV R4,-(SP) : SECTOR,* | 
11 066 JSR PC, CHECK | 
11 06E 63$: RO,R5S 3 *, VALUE | 
11850 06¢ BNE 675 ; 6424 | 
11 06644 ROR R1 ; 6429 
11 06644 BLO 5$ | 
11 34 066450 65$: MOV 4(SP) ,-(SP) ; WDPTR,* 6433 
11855 066454 MOV 64 (SP) ,-(SP) ; RDPTR,* | 
11856 066460 MOV = #400, =(SP 
11 06¢ & JSR PC ,DOUBLE . CHECK 
11 66 ADD 6.$h 
066474 HOV RO, 70(SP) : *,DBL.VALUE 
11861 066 MOV 52(SP) ,-(SP) ; LUN,* 6436 
11 0665 JSR PC, SAYWHO | 
11863 0665 MOV #MSG5, (SP) : 6437. 
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DEFINITION OF OPTION 4 


#SAY1,-(SP) 
#2,-(§P) 
SP.RO 


a ‘ 
#FMT12B,-(SP) 
#3,-(SP) 
SP-RO 


74(SP) ,R1 
#10, WHY 
55 


652 
MSG1 


c* (SP) ,RO 


64 
52(SP) ,R1 
geet -OROPT (RI) 


653 
MSG1 


52(SP) ,RO 
51 


69$ 
52(SP) RI 
#5,,WHY.DROPT(R1) 


«DROPT(R1) 


somer=i8 


7-Mar-19 


. SP,* 


DBL. VALUE ,* 
DBL. VALUE ,* 


. SP,* 


* ,DBL. VALUE 
DBL. VALUE ,* 
DBL. VALUE, * 


° SP,* 
> LUN,* 


; LUN,* 


VALUE ,* 


; COMMAND, * 
: LUN,* 


; PTR,* 
; SECTOR,* 
; LUN,* 


; LUN,* 


VALUE ,* 


; LUN,* 


See ee ee ~~ + 












CZMLBBO PERFORMANCE £ 
GPT4 DEFINITION OF OP 
11921 

135 

11995 Beesee Onbees 
11986 066770 011070 
11927 066772 900000 
11988 066774 16600 
ges Sree dae 
11931 oo7b04 020527 
119 967010 1014 
11933 7012 104455 
11934 067014 55 
11985 G67016 911079 
119 0670 016601 
119 7086 112761 
11939 067034 010100 
1194) Ge7Ocs OnGz34 
11942 067042 920897 
Hass Bee Stee 
11944 06705 004767 
11945 067054 104455 
11946 967056 000656 
11968 Serbee  SoROeD 
Hes Wee Fite 
11951 th 01 100 
11952 67100 104451 
11953 067102 0627 
Hepa si 
11996 57116 161 
11957 067120 767 
11998 67124 767 
Hass Sehae Bele 
11961 67140 6201 
11962 5714 5201 
11 67144 006201 
11964 57146 006 01 
Hees Barres se 
11965 571 2701 
1 571 

17 571 

11970 0671 

1199 vata 414 
11994 rate 706 
11975 067 19965 


000052 
000003 


000052 
000006 


000004 
150256 


000052 
000007 


aa 
1044 
000005 
150206 
000001 


145250 


177700 


000002 





———— ee 
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sMLX4 


69S: 


034446 


70$: 


034446 


71$: 
73$: 


113126 


000056 74$: 


DEFINITION OF OPTION 4 


52(SP) RO 
51 


52(SP),R1 
#6, WHY .DROPT(R1) 
R1,RO 


71$ 
R5 #4 
7 


PC, ISOLATE 


ytd 

#7 , WHY .DROPT(R1) 
R1,RO 

#36,SP 

94$ 

R5 #5 

PC, ISOLATE 

#1 ,ERROUT 

@ML .REG*+42 ,R1 


R 
#177700,R1 
#FMT10B,-(SP) 
#2,-(SP) 


SP 
QML .REG+44 ,56(SP) 
@ML .REG+42,R1 


s *,OLDSEC 


; LUN,* 


VALUE , * 


LUN,* 
LUN, * 


; VALUE,* 


LUN,* 
LUN,* 


VALUE , * 


e SP,* 





5 


SEQ 0268 


7-Mar-1982 19:24:42 
7-Mar-1982 19:23:44 


SL ee a 


TOPS 
PA:< 


6469 


6498 
6499 


indie el LL ee 
CLL Ln ee asesestsstensenssssiessssssnssesnssuusenssemnenecn. nie —_—— 
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OPT4 DEFINITION OF OPTION SEQ 0269 
11977 ZMLX4 27-Mar-1982 19:24:42 TOPS 
bd : DEFINITION OF OPTION & po a 19:23:44 PA:< 
11980 067214 01 ASR R1 
11981 06721 01 ASR R1 
1 7 006201 ASR RI 
11983 067 006201 ASR R1 
11984 067 4 1 R1 
11985 067 1 ASR R1 
11987 Oero3e ordre gpneey MOV ORT GOCePR OLDCHN 
oe e x, 
11988 067240 01 746 000001 MOV #15=(SP) : 6501 | 
11 7244 010246 MOV R2.-(SP) > COMMAND, * 
11990 7246 of 6 000056 MOV 56(SP) ,-(SP) : LUN,* 
11991 067252 012746 000400 MOV #400,-(SP) 
11992 067256 010346 MOV R3,-(SP) : PTR,« 
11993 067 010446 MOV R4.=(SP) : SECTOR,* 
laps Serees QUS7e) ose setae 
11996 067 000005 CMP ROA | 
11998 S08 0 1053 145106 000056 oP vs REG+44,56(SP) OLDSEC 65046. 
s e e *, 
11999 06 007036 BNE 6$ | 
12000 016600 MOV 60(SP).RO : OLDCHN,* 
12001 017701 145070 MOV QML .REG+42,R1 
1 202 006 01 ASR R1 
120C 01 ASR Ri 
1200 006 01 ASR R1 
1 905 : 01 ASR R1 
1 JUC ° 006 Bt ASR R1 
12007 0¢ 006 1 ASR R1 
12008 06¢ 04 01 177700 BIC #177700,R1 
12009 06€ 020100 CMP R 
12010 06 1017 BNE | 
12011 06 32767 000001 112706 BIT #1, ERROUT : 6508 | 
12018 O¢ 1404 BEQ 5$ | 
12013 0¢ 104456 TRAP «5S 
12014 06 57 .WORD 657 
12015 0¢ 1120 -WORD MSG4 
12016 é “WORD 0 
12017 06 16646 000052 75$: MOV 52(SP) ,~(SP) : LUN,* 6510 
12018 16746 144766 MOV BOARD ,-(SP) 
1201 76 15002 JSR PCUP.HARD. COUNT al 
0 ie Py 
12021 0¢ 767 000001 112650 76$: BIT #1. ERROUT 6515 | 
12082 0¢ 415 BEQ «= 78S 
12023 0¢ 457 TRAP 7 
12C 4 . - WORD 660 
1e¢ 5 06 11166 - WORD MSG3 
4! * ° s 
12 10 BR 78$ : 6517 
12028 767 000001 112626 77$: BIT #1, ERROUT : 6523 
13035 1664 . BEQStié78G ! 
12030 ¢ 104457 TRAP 57 
12031 ¢ 000661 -WORD 661 
















CZMLBBO PERFORMANCE EXERCISER 
OPTS DEFINITION OF OPTION 4 
120 
1 
} 0 4 067440 011166 
1 39 7442 000000 
1 ORS 7444 816606 52 
12039 067450 016746 144666 
I 7 She. fe 150424 
1 746 10 
HE BEE Be one 
} O46 776 01 176646 
iis Heke see Ss 
1 067514 091002 
12050 2338 1 000434 
: 2] 7522 0 000014 
5 034500 
034460 
a 
000400 
022670 
A>60e8 
000005 


147526 
000001 


144570 
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82$: 
112546 83$: 


85$: 


112446 


000020 86$: 


DEFINITION OF OPTION 4 
oo 

52(SP) ,-(SP) 

BOARD ,-(SP) 

PC ,UP.SOFT.COUNT 
(SP)+,(SP)+ 

#10,SP 


R4,64(SP) 
2§ 


94$ 

14(SP) ,RO 

RO 

TOP. SECT(RO) ,R1 
pee nee SAU) LRG 


#400,-(SP) 
#RBU 


PC, ISOLATE 
#1 ,ERROUT 


ar REGtAC RO 





R 
#177700 RO 
4#FMT10B,-(SP) 
#2,-(SP5 

14° 

#6,SP 

QML .REG+44,20(SP) 
QML .REG+42,R0 


Re 


LUN,* 


SECTOR 
SECTOR,* 


LUN,* 


; *,SECTOR 


LUN,* 


SECTOR,* 


SP,* 


* ,OLDSEC 


SEQ 0270 


27-Mar-1982 19:24:42 Tops 
57. Mar-1982 19.53.44 





le et ly ee el ee eel eel eel ew eel el eed — oo | . . . . * e 
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CZMLBBO PERFORMANCE EXERCISER 

OPT4 DEFINITION OF OPTION 4 SEQ 0271 
12089 SMLX4 7=Mar-1982 19:24:4 TOP 
990 : DEFINITION OF OPTION 4 foe iat 19:38:44 a 
1 77 ASR RO | 
1 § $508 $0 1777 BIC #177700,RO | 
1 7714 01 2 MOV RO,22(SP) > *,OLDCHN 
1 7720 O1 1 MOV #1.~-(SP) : 6573 | 
1 7724 010246 MOV R2.=(SP) > COMMAND, * | 
1 6 01 900020 MOV 20(SP) (SP) > LUN,* | 
12098 7 12746 MOV #400,~-(SP) | 
i 1 i i rh 2 mov S3(SP) (SP) ; OLDSEC 

— P+ * 

1 104 77h 60096 $ 10003 JSR PC RETRY 
i 198 oreo , $0005 CMP it SP 
1 10% 067760 001 $5 BNE 89 
g 06776 66 144424 000020 COP AML .REG+44,20(SP) : *,OLDSEC 6582 
1 109 777 16646 000022 MOV 22(SP) ,~(SP) : OLDCHN, * 
108 7776 144406 MOV QML .REG+42 ,RO 
12110 0700 ASR —s RO 
4 1117 7000€ ASR RO 
12118 SR a 
12114 070014 ASR RO 
12115 70016 177700 BIC —- #177700,R0 
1 116 70( CMP RO, (SP)+ 
i i i ; 5056 000001 112224 BIT #1 ,ERROUT 6586 
15419 70C BEG =ss«87S ; 
mai Tie ih , - 
121¢e 706 -WORD  MSG4 
12123 0700 - WORD 
12124 0700 ¢ 000014 87$: MOV  14(SP),-(SP) : LUN,* 6594 
12125 070( 144264 MOV ~ 
12126 070056 147340 JSR PC, UP HARD. COUNT | 
12127 07006 BR 91$ ; 658 
; 70064 000001 112166 88$:. BIT #1 .ERROUT : 65 
121 20074 TRAP Sy ; 6604 
igs rats ts i 
121 1 “WORD 0 
121 01 BR 90$ : 6607 
13135 0701 000001 112144 89$: BIT #1 ERROUT 6613 
121 0114 BEQ 90$ 
121 1 TRAP -§7 : 6618 
121 1 .WORD 664 
ido $8 ee Se 
12141 0701 14 90$: MOV 14(SP) ,-(SP) : LUN,* 6621 | 
1 14¢ 1 144204 MOV BOARD ,-(SP) ! 
12143 0701 147742 JSR PC UP. SOFT. COUNT | 








2 EE RS ES a ee eon ore 
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cz 200 PERFORMANCE E S 
OPTS DEFINITION OF OPTION 4 ' ioe om 
: -Mar- 246: 
i 148 — DEFINITION OF OPTION 4 soer-13 19:3$.06 PA:< 
‘S42 : 6552 
91$: CMP (SP)+,(SP)+ : | 
13129 Opoide basses 928: INC he S sector $328 
12150 $4 rd: 93$: had arg*t ; SECTOR,*« | 
12151 07 136 101 
JMP 85$ | 
i 13 pie 386 boss: 94$: INC 14(SP) : LUN 5990 
12154 0701 000014 000042 95$: CMP 14(SP) ,42(SP) : LUN,* 
13135 97012) 906006 aces 
i 139 oO17 062794 000044 96S: ADD #44 ,SP ; 5908 | 
; ; re 070202 20 RTS PC 
: ize: 1456 words 
1et : os senek depth oor invocation: 48 words 
121 
15188 





CZMLBBO PERFORMANCE EXERCISER 
OPTS DEFINITION OF OPTION 4 
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12169 ;MLX4 27-Mar-1982 19:24:42 TOPS=-20 Bliss=-16 V2(212) 
1g100 $ SELECTING A RANDOM WORD COUNT 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.8L1.5 (41) 
Isl t6 ; $60 Zsbttl ‘SELECTING A RANDOM WORD COUNT’ 

12175 ; 66 routine RNDWC = 

12174 : 6635 begin 

12175 ; 66 

1g126 ; 66 1 ++ 

, a4 ; oees ROUTINE: RNDWC 

15158 : 6640 ! PURPOSE: TO SELECT A RANDOM WORD COUNT WITHIN THE RANGE 
15180 3 pre 1 TO BUFSIZ. 

1 1s F rth: ! RESULT: THE VALUE RETURNED WILL BE USED BY THE CALLER 
12183 ; 6644 =! AS ITS "WRDCNT’ 

12184 ; 6645 !-- 

12185 ; 6646 

12186 ; 6647 local 

12187 ; 6648 WRDCNT; 

12188 ; 6649 

12189 ; 6650 RN (); 

12190 ; 6651 RANDOM = .RANDOM and %0'077777': 'IGNORE SIGN BIT 
12191 : 6652 WRDCNT = ((.RANDOM mod BUFSIZ) + 1); ‘FORCE THE RANGE 
1 138 : 6653 return .WRDCNT: 

15133 ; 6654 end; 

1219 -SBTTL RNDWC SELECTING A RANDOM WORD COUNT 
12202 070204 004767 115160 RNDWC: JSR PC.RN ; 
1 970 10 042767 100000 115246 BIC #100000, RANDOM ; 
1 70 18 016746 115242 MOV OM,-(SP) : 
12205 aoe 2 12746 004000 MOV #4000,=-(SP) 

1 06 7 : 767 114750 JSR -BL$MOD 

13308 07093 Osceee CMP CSP)+, (SPs 

; 070 b6050s RTS PC 

1 s Routine Size: 14 words : 

: ; Maximum stack depth per invocation: 2 words 

1 





SEQ 0273 


6650 
6652 


LE eee 
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RANDOM WORD COUNT 


RNDWC SELECTING A SEQ 0274 








1 sMLX4 27-Mar-1982 19:26:42 TOPS-20 Bliss-16 V2(212) 
, ° s SELECTING A RANDOM SECTOR 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.BL1I.5 (42) 
1 g $ 6655 Zsbttl ‘SELECTING A RANDOM SECTOR’ 
12226 ; 6656 routine RNDSEC (LUN) = 
12225 ; 665 begin 
1 $ : 6658 
1 ; 6659 ‘++ 
: 3 oe60 ROUTINE: RNDSEC (LUN) 
1 3 666 ! PURPOSE: TO SELECT A RANDOM SECTOR NUMBER WITHIN THE RANGE 
! 1: 666 OF TESTABLE SECTORS (LOWEST TO HIGHEST) 
1 3 s 6665 |! ARGUMENT: LUN = THE CURRENT LOGICAL UNIT 
1 3 rey : NOTE: *LUN® IS REQUIRED TO CALCULATE LOWEST/HIGHEST 
: 5; $06" FOR THE PARTICULAR LOGICAL UNIT. 
1 3 9 ! RESULT: THE VALUE RETURNED WILL BE USED BY THE CALLER 
1 $ 6670 ! AS ITS ‘SECTOR’. 
12239 ; 6671 !<=- 
12240 ; hae 
12241 ; 7 local 
1 2g 5 6674 SECTOR, 
12245 ; 6675 SIZE; 
12244 ; 6676 
12245 ; 6677 ! 
: 2S ; ogre version czmlbb changed eql to eqlu 
12248 ; 6680 if LOWEST eqlu HIGHEST 
12249 : 6681 then 
12250 ; 6 4 SECTOR = LOWEST 
i 51: 8 lse 
36 $ 6684 begin 
12255 ; 6685 RN () 
12254 : 668 RANDOM = .RANDOM and %0'077777': 'IGNORE THE SIGN BIT 
12255 ; 6687 ! 
: 3? : pet version czmlbb , 
1 S : $690 ; sHighest - Lowest + 1° when testing an ML-118 with 
12259 ; 6691 ! 16 array modules results in a negitive number which 
12260 ; 6692 ! causes the Bliss operator ‘mod’ to mane Xe CPU. 
12261 ; 6693 ! Due to this malfunction the '+ 1° has en deleted 
! oe 3 rte which will avoid this malfunction 
1 é4 : rts) SIZE = HIGHEST - LOWEST: ‘FIND THE SECTOR RANGE 
1 : 669 SECTOR = (LOWEST + (. RANDOM mod -SIZE)):;: ‘FORCE RANGE 
: 08 ; S68 end; 
1 re 8 $050 return .SECTOR: 
; $F ; 6701 end; 
1227% -SBTTL RNDSEC SELECTING A RANDOM SECTOR 


LA A TT te ee 





aa 
ma 
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FORMANCE EXERCISES: 
RANDOM SEC 


115032 
000012 


034460 
034500 


1120s 
034500 
115146 
114656 


LS ssseesssessisssntiesneesteesernnneneeeeeereee- 
E 6 
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115160 


sMLX4 


RNDSEC: oe 


1%: 


2$: 
RTS 


; Routine Size: 


Ss 
: Maximum stack depth per invocation: 





ee 


SELECTING A RANDOM SECTOR 


R1, $SAVE3 
Lait 


R 
#LOW.SECT,R3 
(RS), TOP. SECT(R1) 
(R3) .R2 

2$ 


PC.RN 
#100000, RANDOM 
TOR -SECT CRI) RI 


31 word 


6 words 


LUN,* 


*, SECTOR 


* SIZE 
* SIZE 


; SIZE,* 


*, SECTOR 


; SECTOR,* 


7-Mar-1982 19:24:42 
7-Mar-1982 19:23:44 


A ate ee 


Lee a tee 
-- 2+ 


SS ese eheaspsstesesssnenenseerneemenseeseesss--...... 
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SELECTING A RANDOM SECTOR 





sMLX4 27-Mar-198 742 TOPS-20 B 
4 PA: <NEALE 


3: 2 19:26:46 
¢ 3 SELECTING A RANDOM UNIT 27-Mar-1982 19:23:4 
§ 3 6708 Zsbttl "SELECTING A RANDOM UNIT’ 
a: ore a ete 
9: 6705 ; 

3 6706 !++ 

3 eh it4 ROUTINE: RNDU 

: 6709 | PURPOSE: TO SELECT A RANDOM LOGICAL UNIT NUMBER WITHIN 

$ e719 THE RANGE OF TESTABLE UNITS (0 TO -LSUNIT-1) 

: 6712 

$ 671 local 

3 6714 LUN; 

s 6715 

5 6716 if .LSUNIT eql 1 

5 6717 then 

; 6718 LUN = 0 

3 6719 else 

; 6720 begin le 2 * 

$ 6721 RN (); 

; 67 ¢ RANDOM = .RANDOM and %0'077777': ' IGNORE THE SIGN BIT 

3 $734 RANDOM = (.RANDOM mod .LSUNIT): ‘FORCE THE RANGE 

: 6725 1+ 

3 6726 ! MAKE SURE THE DRIVE IS ACTIVE. IF IT ISN'T, 

; Ore THEN FIND THE NEXT AVAILABLE ACTIVE DRIVE: 

: 6729 . 

3 a incr COUNT from 0 to (.LSUNIT = 1) do 

: 67 é if .DRIVE_STATUS C.RANDOM) eql ACTIVE 

3 673 then 

; 6734 begin 

: ore, : itloc ies 

; ex : 

; 6737 _ 

3 6738 eise 

3 ori? RANDOM = ((.RANDOM + 1) mod -LSUNIT);: 

: 6741 end; , 'n 2 * 

5 674 

3 674 return .LUN: 

3 6744 end; in 1 * 





-SBTTL RNDU SELECTING A RANDOM UNIT 
070336 004167 114752 RNDU: JSR R1,$SAVE4 ; 


SEQ 0276 
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RNDU SELECTING A RANDOM UN SEQ 0277 
12369 sMLX4 7-Mar-1982 19:26:42 TOPS 
20 ; SELECTING A RANDOM UNIT 7-Mar-1982 19:23:44  PA:< 
12372 070 026727 111444 000001 CMP LSUNIT,#1 : 6716 
irs O70 B36rg ef 
12374 070352 005004 CLR R4 : LUN 6718 
fe ss 36 bo 308 115006 1$ OER Se RN ; ore 
12377 ra 2767 100000 115074 BIC #100000, RANDOM ; 672 
12378 070 16746 115070 MOV »=(SP) : 672 
12379 070374 016746 111412 MOV LSUNIT.-(SP) 

1 70400 004767 114576 JSR PC ,BLS$MOD 

12381 070404 010067 115054 MOV RO, RANDOM | 
1 70410 016703 111376 MOV LSUNIT,R3 : 6730 | 
1 070414 005001 CLR Ri : COUNT | 
1 070416 000443 BR 4$ | 
1 385 0704 p 016702 115040 2$: MOV RAND OM,R2 ; 6732 | 
7 070426 00620 ASR R2 

12389 070432 | 02 034442 ADD #DRIVE.STATUS,R2 

1 704 10246 MOV = (SP 

12391 070440 016746 115020 MOV RANDOM -(SP) 

1 33¢ 70444 042716 177770 BIC #177770, (SP) 

12393 070450 01 746 1 MOV ,~(SP5 

12394 070454 046 CLR ~ 

12395 07 56 004767 113674 JSR PC BL$GT2 

1 6 70462 062706 10 AD 10, 

12397 0704 00 300 DEC : 
1 338 9704 0 001003 BNE 3$ | 
12399 070472 016704 114766 MOV RANDOM, R4 > *,LUN 6735 
12400 7047 15 BR 5 : 6736 | 
1 401 5 016746 114760 3$ RANDOM, - (SP) ; 6739 | 
124 d 705 216 INC 

1240 306 016746 111300 MOV LSUNIT,-(SP) 

12404 07051 767 114464 JSR PC .BLSMOD 

12405 316 10067 114742 MOV RO, RANDOM 

124 5 0226 6 CMP (SP)+, (SP)+ 

1240 524 201 INC R1 : COUNT 6730 
1 408 5 0103 4$: CMP R1,R3 : COUNT,* 

124 5 733 BLT $ | 
12410 070532 022626 5$: CMP (SP)+, (SP)+ : 6720 
12411 705 010400 6$: MOV R4,RO : LUN,* 6704 
1e61¢ 6 207 RTS : 6703 
12414 - Routine Size: 65 words _ : 

: 696 ; Maximum stack depth per invocation: 11 words 

124621 
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RNDU SEL NG A RANDOM UN SEQ 0278 
12423 sMLX4 77-Mar-1982 19:24:42 TOPS=20 Bliss=-16 V2(212) 
; re ¢ ; TESTING RANDOM DATA 7-Mar-1982 19:23:44 PA:<NEALE>MLX4.8L1.5 (446) 
124 : ; 6745 %sbttl ‘TESTING RANDOM DATA’ 

12427 ; 6746 routine RAND1 (REPEAT) : novalue = 

12428 : 674 begin '8 1% START OF ROUTINE 
12429 ; 6748 

124350 ; 6749 !44 

: 2 13 0220 ROUT INE : RAND1 (REPEAT) 

! ? § ; of3 PURPOSE : TO TEST USING RANDOM DATA 

12435 ; 6754 |! ARGUMENT: REPEAT = NUMBER OF TIMES TO EXECUTE THIS ROUTINE 
! ri ; 673? BEFORE RETURNING TO THE CALLER (OPTS). 
12638 ; 6757 |! NOTE: THIS TEST CODE FOLLOWS THE SAME FLOW AS OPT3, 
: rt 5 o738 BUT USES A RANDOM DATA PATTERN. 

12441 ; 6760 ! THE CODE FOR *RAND1" IN BRIEF: 

1 1t8 3 6761 ! 

12445 ; 6762 ! BEGIN 1 (START OF ROUTINE) 

12444 ; 6765 ! SAY ROUTINE IS 

12445 ; 6764 |! INCR COUNT FROM 1 TO REPEAT 

1 a9 s 6765 ! : BEGIN 2 (START OF REPEAT LOOP FOR THE ROUTINE? 

12447 ; 6766 ! : GENERATE THE RANDOM PATTERN 

12448 ; 6767 ! =: INCR LUN FROM 0 TO LAST 

12449 ; 6768 ! =: : BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 

12450 ; 6769 ! : : TESTLOOP: 

12451 ; 6770 ! : : : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
12452 ; 6771 ! :: : IF UNIT IS ACTIVE 

1246535 ;: 6772 ! :: : THEN 

12456 ; 6775 ! : : : : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 

12455 ; 6774 ! : 3: : : INITIALIZE THE WRITE AND READ BUFFER POINTERS 

1 229 : 6775 ! :: : : SECTOR = LOWEST 

12457 ;: 6776 =! : : : WHILE SECTOR LEQ HIGHEST DO 

12458 ; 6777 |! :: : : : BEGIN 6 (START OF SECTOR SELECTION LOOP) 

12459 ; ' 6778 ! : : : : : GET_WRDCN 

12460 ; 6779 ! :: : : : SETUP BUFFER POINTERS BEFORE TRANSFER 

12461 ; 6780 ! ::: : : WRITE 

12462 ; 6781 ! :: : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
12465 ; ores ; : : : 2 : CHOOSE WHETHER TO WRITE CHECK OR READ 

12466 ; 67 ! : : ¢ : : DO THE WRITE CHECK OR R 

12465 ; 6784 ! :: : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 

1 296 3 6785 ! : : : : : CHANGE BUFFER POINTERS AFTER TRANSFER 

12467 ; 67 . ¢ 3 : 2 : UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVIOUS TRANSFER 
12468 ; O78 ' : : : : : END 6 CEND SELECTION LOOP) 

12469 ; 6788 =! : END 5 (END OF T FOR AN ACTIVE UNIT) 

12470 ; 6789 ! :: : END 4 (END OF TEST ) 

12471 ; 6 : 3 : END 3 (END OF LOGICAL UNIT SELECTION LOOP) 

: rif ; on Loe 2 (END OF REPEAT LOOP FOR THIS ROUTINE) 

12474 ; 6795 ! END 1 (END OF ROUTINE) 

12475 ; 6794 !<- 

1 $26 s 6795 

12477 ;: 6796 label 
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RNDU SELECTING A RANDOM UN SEQ 0279 

12479 :MLXx6 g7-Mar-1982 19:24:42  TOPS=20 Bliss-16 v2(212) | 
; re + ; TESTING RANDOM DATA 7-Mar-1982 19:23:44 PA: <NEALE>MLX4.BLI.5 (46) | 
124682 ; 6797 LOOP; 

12685 ; 6798 

124684 ;: 6799 local 

He ; tee. 

126487 : é OLDSEC, 

12488 ; OLDCHN, 

12489 : SECTOR. 

12490 ; 6805 PTR, 

1 rh : 68 COMMAND , 

} ve : 680 DBL_ VALUE ; 

12494 : ret PRINTB (SAY1, RTNSA): 

495 : 6810 !*RAND1° 

1 rh : 1 incr COUNT from 1 to .REPEAT do 

12498 : 1 begin !s 2 * START OF REPEAT LOOP FOR THIS ROUTINE 

344 : 16 GENS (); ‘FIRST 3 WORDS OF WBUFF ARE THE SEEDS 

125Ci ; 6816 incr LUN from 0 to (.LSUNIT = 1) do | 
30 : 6817 itis begin !* 3 * START OF LOGICAL UNIT SELECTION LOOP | 
12504 $ 6819 begin 's 4 * START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT | 
sor : e831 if -DRIVE_STATUS [C.LUN] eql ACTIVE | 

. en | 

12508 : £895 begin 's 5 * START OF TEST FOR AN ACTIVE UNIT 

12509 ; $ 4 LSLUN = .LUN; 

1 319 s 25 WPTR = WBRUFF: 

12511 : 68 é RPTR = RBUFF: | 
312 : 6 ; SECTOR = LOWEST: | 
12514 : 9 while .SECTOR Lequ HIGHEST do | 
12515 : 0 begin !® 6 * START OF SECTOR SELECTION LOOP : 
1 218 : 1 WRDCNT = GET_WRDCNT (.SECTOR. HIGHEST): | 
12517 : g SET_PTRS (.WRDCNT): 

1 218 : VALUE = write (.LUN, .WRDCNT, .WPTR, -SECTOR): 

13820 : 6835 14 

; : es : SEE HOW SUCCESSFUL THE WRITE WAS: 

1 : ; | 
12526 ; £839 selectone .VALUE of 'SEE *SYSERR* FOR DEFINITION | 
5: 6840 set 'OF ERROR # CONTAINED IN "VALUE" | 
1 : 6842 (1): 

528 : eats begin 's 6A * RETRY ALLOWED 

1 ; : 5 if RETRY (SIX, write, .LUN, .WRDCNT, .WPTR. .SECTOR) neq 0 

3 1: then 'THE RETRY FAILED -- SYSTEM FATAL ERROR 

12533 : 


begi 
1,848 WHY_DROPT [.LUN] = CODE_4; 
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F 
NDU SELECTING A RANDOM UNIT SEQ 0280 
12535 sMLX4 27-Mar-1982 19:24:42 TOPS=20 Bliss-16 V2(212) 
: 2 : TESTING RANDOM DATA 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.BLI.5 (46) 
1 338 ; $869 ERRDF (5101, MSG1, 0); !** OPTION 5, RAND1 ERROR 01 tees 
12539 : 50 DODU (.LUN): 
12540 : eth leave LOOP; ‘JUMP JUST BEYOND END OF BLOCK « 4 « 
12541 ; 26 end; 
1 rk : 685 
125435 ; 6854 end; ' 6A * 
12544 ; 6855 
12545 : 6856 - - e 
12546 ; ety agta '* 6B * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
12547 ; 58 WHY_DROPT ([.LUN) = CODE_5; 
} 378 s 6859 EARDF G08, MSG], 0); :#*e% OPTION 5, RAND] ERROR 02 «ex 
12550 ; e861 leave LOOP; ! JUMP JUST BEYOND END OF BLOCK * 4 « 
12551 ; ¢ end; 'x 6B * 
12552 ; 686 
12555 ; 6864 so oa 
12554 ; 6865 begin :* 6C * FATAL DRIVE ERROR -=- NO RETRY ALLOWED 
12555 ; onee ERRDF (5103, MSG1, 0): ieeae OPTION 5, RAND] ERROR 03 eeee 
1 236 : WHY DROPT C.LUN] = CODE_6; 
$32 : 6868 DODD (.LUN): 
12558 ; g leave LOOP: ‘JUMP JUST BEYOND END OF BLOCK * & * 
12559 ; 6870 end; 'e 6C * 
12560 ; 6871 tes; 
12561 ; onre 
: 30¢ 3 eth, COMMAND = CHOOSE (): 
12564 ; 75 if .COMMAND eql read 
12565 ; 6876 then 
1 306 : 6877 pegin 
12567 ; 6878 PTR = .RPTR; 
12568 ; 79 VALUE = read (.LUN, .WRDCNT, .RPTR, .SECTOR): 
1 38 ; 6880 end ; 
12570 ; 1 else 
12571 ; 6 ¢ begin 
12572 ;: PTR = .WPTR: 
12573 ; oane VALUE = CHECK (.LUN, .WRDCNT, -WPTR, .SECTOR): 
! a : 5 end; 
1 576 : 1+ 
: 8 ; 5 SEE HOW SUCCESSFUL THE OPERATION WAS: 
1 : 90 
1 : 1 selectone .VALUE of 'SEE ‘SYSERR® FOR DEFINITION 
: 13 8 set OF ERROR # CONTAINED IN ‘VALUE* 
1 : 94 [0] : 
} : 95 
12585 ; if .COMMAND eql read 
12586 ; then 
: ; ; begin 
1 : 6900 if (DBL_VALUE = DOUBLE_CHECK (.WPTR, .RPTR, .WRDCNT)) neq 0 
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RNDU SELECTING A RANDOM UNIT SEQ 0281 


12591 as pera le8s 18 $8: 242 TOPS-20 Bliss-16 V2(212) 
TESTING RANDOM DATA 7-Mar-19 3:44 PA:<NEALE>MLX4.BLI.5 (44) 


4901 then 


+ od 
MAMMA AWA 
BREE 

Se 

Se2 


eqin 
SAYUHO (. LUN); 
PRINTB (SAY MSGS); '"ECC LoGi¢ FAILED TO DETECT DATA ERROR’ 
PRINTB (F FATICA, ob eekry VALUE, .DBL_V 
DATA: XXKXKX AT ‘LcaTion yyyyvy" 

VALUE | = ‘eee OVALUE z BUFSI2Z*2; 
PRIRVeS MT128. > -DBL_VALUE, .DBL’ VALUE): 
909 DATA: PPPPPP AT’ LOCATION acQaaa’ 
6910 WHY_DROPT [. iuMd = PCODE. : 
6911 ERRDF ( (5104, MSG1, 0): !ne** OPTION 5, RAND] ERROR 04 see 


U UN); 
691 leave LOOP: !JUMP JUST BEYOND END OF BLOCK *« 4 « 
6914 end; 


6916 end; 


6918 2 
6919 begin ' 6D * RETRY ALLOWED 


6921 if RETRY (SIX, .COMMAND, .LUN, .WRDCNT, .PTR, .SECTOR) ne 0 
6922 then 'THE RETRY FAILED -- SYSTEM FATAL ERROR 


"he in 
6994 WHY DROPT [.LUN] = CODE_4; 
6925 ERRDP (5108. MSG1, 5) “!aee® OPTION 5, RAND] ERROR 05 see« 


6927 leave LOOP; ! JUMP JUST BEYOND END OF BLOCK * 4 « 
6928 end; 


6930 end; 'x 6D * 


693 (2): 
693 begin !* 6£ * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
6934 T C.LUN] = CODE_5; 

6939 ERABP "(5106 MSG1, 0): ines OPTION 5, RAND1 ERROR 06 «xe 

692 Leave LOOP: ! JUMP JUST BEYOND END OF BLOCK * & « 

6938 end: ix 6E * 


4940 (3) : 

begin * 6F * FATAL DRIVE ERROR ~~ NO RETRY ALLOWED 
694 ERRDF (5107, MSG1, 0}: !nxe® OPTION 5, RAND] ERROR 07 seee 
694 3 WHY DROPT OPT LUN] = CODE_6; 
6945 Leave (OOP; “4 ' JUMP JUST BEYOND END OF BLOCK * 4 « 
694 end; 's 6F *® 


694 [4] : 
694 begin :* 6G * UNRECOVERABLE DATA ERROR 


ISOLATE 
6951 ERRDF "E5108. MSG2, 0): fexe® OPTION 5, RAND? ERROR 08 tee 
6952 Y_DROPT C.LUN] = CODE_7; 
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27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212) 
27-Mar-1982 19:23:44 PA:<NEALE>MLX4.BL1I.5 (44) 
DODU (.LUN);: 
leave LOOP; !JUMP JUST BEYOND END OF BLOCK « 4 « 
end; '® 6G * 


(53 
-* 6H * RECOVERABLE DATA ERROR 


be in 
ISOLATE (); 


if .ERROUT then PRINTB (FMT10B, .CHAN); 


* BIT QQ’ 
OLDSEC = .MLEL; 
OLDCHN = .CHAN; 


a. RETRY (ONE, .COMMAND, .LUN, .WRDCNT, .PTR, . SECTOR) eql 5 
en 


A ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
en 

begin 

if .ERROUT then ERRHRD (5109, MSG4, 0); 


!eeae OPTION 5, RAND1 ERROR 09 «ex 
UP_HARD_COUNT (.LUN, -BUARD); 
en 


if .ERROUT then ERRSOFT (5110, MSG3, 0): 


see OPTION 5, RAND] ERROR 10 «exx 
nee CRIN (.LUN, .BOARD); 
en 


else 
begin 


if .ERROUT then ERRSOFT (5111, MSG3, 0): 


:*ee% OPTION 5, RAND] ERROR 11 sexx 
anor TCOUNT (.LUN, .BOARD); 
eng; 


end; 's 6H * 


tes; 


WPTR = .WPTR + (.WRDCNT*2); 
SECTOR = .SECTOR + (.WRDCNT/256); 
end; :* 6 * END OF SECTOR SELECTION LOOP 


END OF TEST FOR AN ACTIVE UNIT 


i 5 8 


SEQ 0282 
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RNDU SELECTING A RANDOM UNIT SEQ 0283 
12703 ;MLX4 27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212) 
} pe 3 TESTING RANDOM DATA 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.BLI.5 (44) 
12706 ; 7005 
12707 ; 2006 '¢ : ; : 
12708 ; 700 . Test to see if this uut’s address space is 
12709 ; 7008 : to be read for soft errors. This test is 
12710 ; 7 ! is intended for DMT purposes. 
12711 ; 7010 in 
1 Ne 3 7011 
12715 ; 701 if .EFN$21 ‘Is the background pattern to be read 
12714 ; 701 then | 
12715 ; 7014 begin 
12716 ; 7015 
12717 : 7016 ! 
} os : 44. version czmlbb changed incr to incru 
, 0 : 7019 incru SECTOR from LOWEST to HIGHEST do 
127 é : 7021 if read (.LUN, 256, RBUFF, .SECTOR) eql 5 
12723 ; 702 then 
12724 ;: 702 begin . 
; i Ss; 4 : ISOLATE (); ‘Find the failing bank and board no. 
f 8 : rose if .ERROUT then PRINTB (FMT10B, .CHAN): 
137 : A 3 Print where the error is 
12731 ; 7030 Save the contents of the ML error Location 
127 4 : 7031 : register so we can compare it to the new 
12735 ; 703 : contents of this register after the retry. 
; , : : peer This is done to classify the error. 
12736 : 7035 OLDSEC = .MLEL; 
12737 ; 7036 OLDCHN = . ; 
12738 ; 7037 ! 
12739 ; 7038 : Do a classify petry call. If the same error 
12740 ; 7039 : occures then classify it as a hard error. If 
12741 ; 7040 : a different error occured or the error went away 
| bk : 7041 - ! then classify it as a soft error. 
see: Bie | 
12745 : 7044 if RETRY (ONE, .COMMAND, .LUN, 256, .PTR, .OLDSEC) eal 5 
13949 roe ‘92 
12748 ; 7047 i The same error occured so see if it is at the same 
12749 ; oes : sector and channel number, if so then classify 
12750 ; 7 ! it as a hard error else classiy it as a soft 
12751 ; 7059 ' error. 
eae Re : 
12754 : 705 if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
ami HRS as , thane 
$ egin ‘Same error occure ar 
1 736 3 7056 , 
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RNDU SELECTING A RANDOM UNIT 





——— ite 


27-Mar-1982 19:24:42 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.BLI.5 (44) 


‘Print error if enabled 


‘Error number 
‘Additional message routine 


UP_HARD_COUNT (.LUN, .30ARD); , 


'Not the same error ‘soft’ 
‘Print error if enabled 


‘Error number 


‘Additional Ressage routine 


‘Not the same error ‘soft’ 


'Print error if enabled 


‘Additional ieeeens routine 


END OF LOOP THAT COMPLETELY TESTS 1 UNIT 
END OF LOGICAL UNIT SELECTION LOOP 


END OF REPEAT LOOP FOR THIS ROUTINE 


12759 ;MLX4 
; 760 : TESTING RANDOM DATA 27-Mar-1982 19:23:44 
762 ; 7057 if .ERROUT 
763 ; 7058 then 
764; 7059 begin 
765 ; P 7060 ERRHRD (5112, 
766 : P 7061 MSG4, ‘Error message 
er : he: d vi 
5 end; 
769 ; 7064 
770 ; 7065 
771 : 2066 end 
oe : 706 else 
773 ; 7068 ' begin 
774 ; 7069 i 
775 ;: 7070 if .ERROUT 
776 ; 7071 then 
777 ;: 707 pegin 
ore 5 P 707 ERRSOFT (5113, 
779 ; P 7074 G3, ‘Error message 
780 ; 7075 0); 
781 ; 7076 end; 
782 ; 7077 
785 ; 7078 UP_SOFT_COUNT (.LUN, .BOARD): 
784 ; 7079 end 
785 ; 7080 
786 ; 7081 else 
787 ; ope begin 
788 ; 708 
789 ; 7084 if .ERROUT 
; 7085 then 
791 ;: 7 begin 
a4 : P 7 ERRSOFT (5114, ‘Error number 
as, 3 P roRs Ase3. ‘Error message 
736 ; 7090 end; 
: 709 UP_SOFT_COUNT (.LUN, .BOARD): 
£38 : 088 end; —~ 
3 7094 
5 f 95 end; 
: 7 end: 
§ r 7 a8 
: ? end; ‘es 4 & 
5: 71 end; 'e 3 « 
: 103 d 'e 2 
* end; 'e 2 @ 
a a 
; return; 
0; 7105 end; ‘a 1 * 
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END OF ROUTINE 


SEQ 0284 


el el a el cel el el a \ 


dt ad w 


— 
NOUMUEWOONAW om 





| 
™ 


SoS 


—_—) 


MEW OS OBNAOULWN=O 
Ooons 


DAR WANE Ed 
WYN 
NNNIN 


SN 
VII 
FOLIO 


Pe | 
“I~ 


oooo— 
2H 
~“ 

DOK 


ES 


$ 
oe 


Or 
“IN 
aS 


SSSSSe 


Soko= 
S NES 
NOAAARAD 


> 
SEU 
SNS 


ROO 
NNN 


ss 
=On 
o—-oOnm 
WVSNAR WAAR 
MNAOUIMUWUIW 


> >t > 
NAA 





000024 
092076 
151014 
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TESTING RANDOM DATA 


RAND1 TESTING RANDOM DATA 


R1 SSAVES 
#RINSA, (SP) 


#SAY1 ,-(SP) 
#2,-(SP) 


24 (SP) 
42$ 

PC, GENS 
LSUNIT,10(SP) 
6(SP) 

41$ 

6(SP) RO 

RO 

RO 

RO 
ADRIVE.STATUS,RO 
RO,-(SP) 

10(SP) ,=(SP) 
#177770, (SP) 
#1,-(SP5 

-(§P) 

PC BL$GT2 
#10,SP 

4$ 

29$ 

6(SP) ,LSLUN 
#WBUFF ,WPTR 
#RBUFF CRPTR 
6(SP) .RS 

LOW. SECT(RS) .R3 
R3. TOP. SECT (RS) 


R3,~(SP) 
TOP. SECT(R5) ,-(SP) 
oGET.WRDCN 


t 


PC WRITE 
TESTING RANDOM DATA 


RO,R4 
R4 #1 


; SP,* 
; COUNT 


; LUN 
; LUN,* 


; LUN,* 


LUN,* 


LUN,* 


: *,SECTOR 
; SECTOR,* 


SECTOR,* 


* ,WRDCNT 
WRDCNT,* 


; LUN,* 
; WRDCNT,* 


SECTOR,* 


* , VALUE 
VALUE ,* 
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155160 
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TING RANDOM DATA sala 


6$ 
#6,~-(SP) 
#WRITE,=(SP) 
24(SP) .=(SP) 


20(SP) ,R1 

geeWHY DROPT (RI) 
11755 

MSG1 

20(SP) ,RO 

51 


8$ 
RS #2 


20(SP) ,R1 

$2 WHY .DROPT(R1) 
11756 

MSGI 

20(SP) ,RO 

51 

8$ 

R4 AS 

9$ 

55 

11757 

* ad 

20(SP) ,R1 

#6,WHY .DROPT(R1) 
R1,RO 


PC, CHOOSE 
RO. 54(SP) 


RO. #READ 
10$ 


R1 
RPTR,32(SP) 

TESTING RANDOM DATA 
20(SP) ,-(SP) 

2,~-(SP 

RPTR,-(SP) 
R3,-(SP) 


LUN,* 
; WRDCNT,* 


SECTOR,* 


LUN,* 


LUN,* 


3; VALUE * 


> LUN,* 


LUN,* 


VALUE ,* 


LUN,* 
LUN,* 


* , COMMAND 
COMMAND , * 


* PTR 


LUN,* 
WRDCNT,* 
SECTOR, * 


27-Mar-1982 19:24: 
27-Mar-1982 19:2 


4 
19:23: 


—= eee 
ST Stn teeter 
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RANDOM DATA 





ESTING SEQ 0287 
071 004767 154332 JSR PC gREAD 
71 16766 141402 000032 10$: MoV WPTR, 32(SP) : *,PTR 6883 
071 16646 0600e0 MOV 20(SP) , -(SP) : LUN,* 6884 
71 010246 MOV R2,-(SP) : WRDCNT,« 
7 016 46 161366 MOV WPTR,-(SP) 
71 01 346 MOV R3,-(SP) : SECTOR,* | 
071 004767 154470 JSR PC; CHECK | 
0 071 010004 11$: MOV RO.R4 : *, VALUE | 
941 071 001102 BNE 15$ : 6891 | 
é 071 006001 ROR R1 : 6896 | 
71 10 02 BLO 13$ | 
71 167 001014 12$:  JMP 28$ | 
5 071 16746 141340 13$: MOV WPTR,-(SP) : 6900 | 
071 016746 141336 MOV RPTR.-(SP) | 
071 010 46 MOV = (SP : WRDCNT,* | 
71 67 152764 JSR PC, DOUBLE . CHECK | 
71 706 000006 ADD *SP | 
71 000036 MOV RO, 36(SP) : *,DBL.VALUE 
71 1762 BEQ 12$ 
71 6 000030 MOV 30(SP) ,-(SP) : LUN,* 6903 
71 67 164140 JSR PC, SAYWHO 
71 716 011216 MOV (SP) : 6904 
955 07 746 007072 MOV #SAY1.=(SP) 
956 07 746 00 MOV = (SP 
957 07 0600 MOV SP_RO : SP,* 
958 07 04414 TRAP ‘14 
959 07 6616 000044 MOV 44(SP), (SP) : DBL. VALUE, * 6905 
960 07 646 MOV a44(SP),-(SP) : DBL. VALUE,* 
12961 07 746 006710 MOV #FMT12A.~(SP) 
1 62 71 746 MOV »~(SP5 
12963 0714 MOV SP,RO : SP,* 
/ 565 ae bes7ee 010000 000052 Hine #10000 52(SP) DBL. VALUE 6907 | 
4: a e *, co 
12966 0714 16616 00005 MOV 52/SP)- (SP) : DBL. VALUE, * 6908 
12967 071442 017646 MOV a52(5P5,-(SP) ; DBL. VALUE, * 
12968 071446 012746 006756 MOV #FMT12B.~(SP) 
1296S 149 12746 MOV #3,-(SP5 
12970 0714 1 SP,RO : SP,* 
15992 Oides O9604 52 ROY «SSCSP) a1 LUN 6910 
; og e o* 
15998 71466 11 6] $0003 034446 MOVB #10,WHY.DROPT(R1) 
12974 071474 104455 TRAP =‘ 45 : 6911 
12975 07147 11760 é 11760 
12976 £15 110 - WORD MSG1 
1297 “18 16600 000052 MOV 52(SP) RO : LUN,* 6912 
1 8 71510 104451 TRAP «45 | 
1298C SMLX4 27-Mar-1982 19:24:42 TOPS 
1698 : TESTING RANDOM DATA 27-Mar-1982 19:23:44 PAZ< | 
298 | 
12983 07151 706 000044 ADD #66,SP : 6913 | 
129% 7131 5 148: BR 208 | 
12989 AE ; 1085 000001 15$: CP RG a ; : VALUE, * 6891 | 
. FOU 
12987 071 2746 MOV #6,-(SP) : 6921 | 
12988 0715 16646 tae MOV 46(SP) ,-(SP) > COMMAND, * | 
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met ok 
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o-oo 
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000034 
000052 
154446 
000014 


000030 
000004 
000030 
000002 
000030 
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000003 


000030 
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000004 
145402 
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16$: 


17$: 


18$: 


19$: 
20$: 
21$: 


MOV 


34(SP),-(SP) 
R2,-(SP 
52(SP) ,-(SP) 
R3,-(SP) 


PC_RETRY 
#14,SP 


RO 

iss 

30(SP),R1 
SeeWHY .DROPT (RI) 
11761 

MSGI 

30(SP) ,RO 

51 


19$ 
R4 #2 


30(SP) ,R1 
#5 ,,WHY .DROPT(R1) 


11762 

MSG1 

30(SP) .RO 

51 

iors 

18$ 

55 

11763 

MSGI 

SocSP) RI 

#6, WHY .DROPT(R1) 
1.R0 : 

19$ 

RG WG 

st ISOLATE 

55° 

11764 

MSG2 


TESTING RANDOM DATA 


ae‘) oR 
#7 WHY .DROPT(R1) 
R1,RO 


rt al 
40$ 
RS AS 


28$ 





LUN,* 
WRDCNT,* 
PTR 


: SECTOR, « 


LUN,* 


LUN,* 


VALUE ,* 
LUN, * 


LUN,* 


VALUE ,* 


LUN, * 


; LUN,* 


VALUE ,* 


LUN,* 
LUN,* 


VALUE ,* 


27-Mar-1982 1 
27-Mar-1982 1 


SEQ 0288 


6924 | 
6925 | 


6926 
35 
6934 
6935 


6936 


6937 
6891 


s 


6944 


6945 
6891 


r 


6950 
6951 


TOPS 
PA:< 


aay 
6953, 
6954 | 
6891 
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RANDOM DATA 












AND1 TESTING SEQ 0289 
1 6 7177 145332 JSR PC, ISOLATE : 6959 
: 5 POC 000001 110252 ort #1, ERROUT ; 6961 
13049 072010 142374 MOV @ML .REG+42,R1 
13050 072014 ASR R1 
13051 07201 ASR 
1305¢ 72¢ ASR R1 
1383 O73 ASR OR 
1 t: 126 ASR R1 
13056 503 177700 BIC #177700.R1 
13088 O75¢ 0 MOV AEATIOB,~(S—P) 

1 3 7 os aati MOV #2,-(SP5) 

1 8 MOV SP.RO e SP,* 

13061 30 TRAP ‘14 
1306 706 000906 ADD #6,SP 
13063 072056 0177 16¢ 0 000040 22$: mov QML .REG+44,40(SP) : *, OLDSEC 6964 
130¢ iY 142320 MOV aML .REG+42.R1 : 6965 | 
13065 07 ASR R1 | 
13066 ‘ ASR R1 
1306 074 ASR R1 | 
13069 o7Sv08 SRO : 
13090 075105 = © 
13071 07 194 177700 BIC #177700,R1 | 
13072 072110 000034 MOV =. R134 (SP) ; *,OLDCHN | 
Wire Grelde Sees ROR eS oie comme - 

head e .* 

13075 0721 2 boobs: MOV 34 (SP); =(SP) ; LUN, * | 
13076 0721 MoV ,=(SP) ; WRDCNT,* 

13077 0721 000052 MOV 52(SP) ,-(SP) : PTR, * | 
Eh 721 MOV = (SP) ; SECTOR,* | 
13079 072140 154060 JSR PC RETRY | 
13080 072144 000014 ADD 4.SP 
13082 073134 bososS 700005 BNE OS . 
1308 22136 027766 142230 000040 CMP IL LREG#44 ,40(SP) ; *,OLDSEC 6970 | 
13085 0721 fh 000034 MOV (SP) .RO ; OLDCHN,« 

13086 73179 17701 142212 MOV @ML .REG+42,R1 
' 08 7 200 if ASR Ah | 
13089 07 01 ASR R1 | ) 
1309 ZMLX4 . 27-Mar-1982 19:24:42 TOPS | 
13 ; 2 ; TESTING RANDOM DATA 27-Mar-1982 19:23:44 PA:< 
13093 07 1 ASR R1 
13094 07 $F ASR R1 | 
13095 07221 Or ASR R1 
13096 07221 1 177700 BIC #177700.R1 
1097 07 10 CMP Ri RO | 
139 767 000001 110030 BIT a gERROUT : 6976 
13101 5 TRAP 6 
13102 o1i%% .WORD 11765 


ST LT ER ee 





———— 
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AND1 TESTING RANDOM DATA SEQ 0290 
13103 01120 .WORD MSG4 
13104 .WORD 0 
13105 0 6646 0000 23$: OV 30(SP) ,-(SP) ; LUN,* 6977 
1 106 16746 1420 0 MOV BOARD ,-(SP) 
1310 767 165164 JSR PC .UP.HARD. COUNT 
13108 27 BR 7$ : 6970 
13109 2767 000001 107772 24$: BIT #1, ERROUT ; 6982 
13110 001415 BEQ 26 
13111 104457 TRAP ‘57 | 
13118 011766 .WORD 11766 
1311 011166 .WORD MSG3 
13114 000000 .WORD 0 
13115 10 BR 26$ : 6985 
13116 032767 000001 107750 25$: iT #1, ERROUT : 6991 
1311 001404 BEQ 26$ 
13118 104457 T 
13119 011767 WORD 11767 
13120 011166 .WORD MSG3 
13121 C .WORD 0 
131 g 016646 000030 26$: MOV 30(SP) ,=(SP) : LUN,* 6994 
131 016746 142010 MOV BOARD ,-(SP) 
131 4 004 67 1645546 JSR PC UP. SOFT. COUNT 
13125 36 022626 27$: CMP (SP) +, (SP)+ : 6958 
131 $0 340 010200 28$: MOV R2,RO : WRDCNT,* 7000 
13127 072342 ASL RO 
131 8 072344 700 140320 ADD WPTR,RO 
13129 072350 010067 140314 MOV RO,WPTR ! 
13130 072354 010216 MOV R2, (SP) : WRDCNT,* 7001 
13131 072356 012746 MOV #400,-(SP) 
13132 072362 004767 112602 JSR PC .BLSDI 
13133 07 060300 ADD R3_R : SECTOR,* 
131 70 010003 MOV RO.R3 : *, SECTOR 
13135 07 322 062706 0000 ADD #24,SP ; 6830 
131 76 167 176332 JMP : 6829 
13137 07 402 032767 000001 107652 29$: BIT #1,EFNS$21 : 7012 
131 97 41 00100¢ BNE 30$ 
13139 412 000167 000440 JMP 40$ 
13140 07 416 016600 000006 30$: MOV 6(SP) RO : LUN,* 7019 
13141 072422 006300 ASL RO 
1314¢ 7 424 016001 034500 MOV TOP. SECT(RO).R1 
13143 072430 016005 034460 MOV LOW. SECT(RO) .R5 : *, SECTOR 
13144 072434 000167 JMP 9$ 
13145 ZMLXG 27-Mar-1982 19:24:42 TOPS 
13146 : TESTING RANDOM DATA 27-Mar-1982 19:23:44 PA:< 
13148 072440 016646 000 31$: MOV 6(SP) ,-(SP) : LUN,* 7021 
1314 444 012746 0004 MOV #400,-(SP) 
13150 072450 012746 022670 MOV #RBUFF , -(SP) 
13151 072454 010546 MOV R5,-(SP) : SECTOR,* 
1 138 456 767 153130 JSR PC READ 
1315 462 7 10 ADD #10,SP 
13154 07 466 02002 5 CMP | 
13155 0724 1164 BNE | 
1 136 474 767 144632 JSR PC, ISOLATE : 7024 
1315 5 767 000001 107552 BIT #1 ERROUT ; 7026 
1 138 5 1423 BEQ $ | 
13159 072510 017700 141674 MOV @ML .REG+42,R0 
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ING RANDOM DATA 


R 
#177700.R0 
RO,-(SP 
#FMT10B,-(SP) 
#2,-(SP) 


14 


#6,SP 
@ML .REG+44,16(SP) 
Sar neethe RO 


R 
#177700,R0 
RO. 12(SP) 


aomeeees .16¢SP) 


12(SP) ,-(SP) 
a henehe RO 


RO 
RO 


TESTING RANDOM DATA 
RO 

RO 

#177700,R0 

RO, (SP)+ 

#1, ERROUT 

3¢ 

11770 

MSG4 


0 
6(SP) ,-(SP) 
BOARD ,-(SP) 


Re 


. SP,* 


; *,OLDSEC 


* ,OLDCHN 
COMMAND , * 


LUN,* 
PTR,* 


OLDSEC,* 


* ,OLDSEC 
OLDCHN, * 


LUN,* 


SEQ 0291 


27-Mar-1982 19:26:4 
27-Mar-1982 19:23:4 


ee eee we we 


2 
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I 
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7036 | 


7044 
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RANDOM DATA 





AND? TESTING SEQ 0292 
13217 07 28 767 166440 JSR BE gUP- HARD. COUNT 

13218 0727 7 BR 3 a ; 7053 
: 1 727 Ht 000001 107266 34S: at #1, ERROUi ; 7070 
1 1 072774 106457 TRAP 368 : 7075 
1 . 1 ~ WORD 11771 

1 1 -WORD MSG3 

13224 -WORD 0 

13225 BR 36$ $ | ; 7078 
1 § 000001 107244 35$: BIT #1, ERROUT ; 7084 
1 BEQ 36$ 

1 TRAP 57 5 7089 
1 ; 11772 

: : ‘a oe 

1 990006 36$: MOV 6(SP) ,-(SP) ; LUN,* 7092 
1 141 MOV D,- (SP) 

1 145042 JSR PC ,UP.SOFT.COUNT 

13235 37$: CMP (SP)+, (SP)+ ; 7023 
1 38$: INC ; SECTOR 7019 
1 39$: CMP R5.R1 ; SECTOR,* 

1 BHI 40$ 

13540 000006 40s: INC tsp) Lue 6816 
13261 000006 000010 41$: CMP 6(SP) ,10(SP) : LUN,* 

1 ¢g BGE 42$ 

1326 175524 JMP 

13244 000024 42$: INC 24 (SP) ; COUNT 6812 
13245 000024 000044 CMP 24(SP) ,44(SP) ; COUNT, REPEAT 

1 46 BGT 43$ | 
1324 175462 JMP 1$ : 
1 £8 000026 43$: ADD #26,SP : 6746 | 
} 4 RTS PC | 
1 39 ; Routine Size: 634 words } 

26 ; Maximum stack depth per invocation: 35 words 

13261 


eee 





_—— 
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SEQ 0293 
gl i age 27-Mar-198 19:24: :42 = TOPS=20 Bliss-16 ¥2(212) 

e — TESTING RANDOM DATA & WORD COUNTS 27-Mar~-198 3:44 PA:<NEALEDMLX4.BLI 
13265 D COUNTS’ 

. 7106 %sbttl “TESTING, RANDOM DATA & WORD 
1356 : af a EPEAT) : novalue 1. 1° Stat OF antes 
1 ; 
1 269 : at90 +4 
13271 : ii} : ROUT INE : RAND2 (REPEAT) 
13526 : i . T UNITS IN A SEQUENTIAL FASHION, BUT 
13594 ¢ ri8 — 2 WORD COUNTS 
13279 4 ae GUMENT : = NUMBER OF TIMES TO EXECUTE THIS ROUTINE 
18376 ; ms ; — BEFORE RETURNING. TO THE CALLER (OPTS). 
13678 ue i : TS AND THE DATA ARE RANDOM. 
13380 : F100 — Tie oTueh Than FER VALUES MUST BE SET UP BY THIS 
i f : ; 3 wie im ete ND ae BUFFER POINTERS. 

; 
13984 : 7134 : THE CODE FOR *RAND2* IN BRIEF: 
1 i 

: TART OF ROUTINE) 
an ae Pi kane, 
HY : i198 i : BEGIN 2. (S TART OF REPEAT LOOP FOR THE ROUTINE) 
1329 ; F134 ; + NSEGING 3 CSTART. OF LOGICAL UNIT SELECTION LOOP) 
i ae ri3e | : : GENERATE THE RANDOM PATTERN 
13 0% : m3 & eercen (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
13395 713) i : IF UNIT IS ACTIVE 

4 i 
i 7 : 5139 i > os BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 
13998 : . Beeee INITIALIZE Me WRITE AND READ BUFFER POINTERS 
1330) - eee. BEGIN G (START Gh at Dase THROUGH ALL SECTORS) 
13302 : <), ae eae UNT ces ues 
8 : age Be. 2: CALCULATE wen 1’ START ING SECTOR (BASED ON WORD COUNT) 
13308 7145 § : i: : : FF NEXT STARTING SECTOR GTR HIGHEST sie 
13300 7146 § ttt rie THEN ADJUST THE WORD COUNT NEXT SECTOR SO THEY F] 
i 0? $449 i ii: 3: WITHIN THE TESTABLE SECTOR LIMITS 
13308 : (>; Gee U, S (IF DROP UNIT, LEAVE TESTLOOP) 
13 ; o180 ; cfs s CHOOSE wt toee 10 WRITE CHECK OR READ 
13312 : r18¢ Bees: *4% 5° Fy? F DROP UNIT H shit TESTLOOP) 

; ae a ee = THE CALC 
13 : Be eeeee CHANGE BUFFER ADs urene aMea SFER 
13316 7195 § ::: : : END 6 (END OF A PASS THROUGH A ALL I SECTORS) 
12 : 7156 | =: : : : END 5 (END OF TEST FOR AN ACTIVE UNIT) 
1 319 : o1e9 i : : END G (END TESTLOOP) 


ee 
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ANDOM DATA 


$f far-198 19:5 


TESTING RANDOM DATA & WORD COUNTS 7-Mar-1982 1 


: 3 3 END 3 (END OF LOGICAL UNIT SELECTION LOOP) 
; a4 2 (END OF REPEAT LOOP FOR THIS ROUTINE) 
i 


END 1 (END OF ROUTINE) 


OMMAND , 

DBL_VALUE; 
label 

L 


PRINTB (SAY1, RTNSB); 
*RAND2° 
incr COUNT from 1 to .REPEAT do 
begin 
wer ie from 0 to (.LSUNIT - 1) do 


LOOP : 


4:42 


1:23:46 


SEQ 0294 


TIPS-20 Bliss-16 V2(212) 
PA: <NEALE>MLX4.BLI.5 (45) 


‘* 2 * START OF REPEAT LOOP FOR THIS ROUTINE 


ea n :* 3 * START OF LOGICAL UNIT SELECTION LOOP 
GENS (); ‘RANDOM DATA PATTERN 


begin ‘* 4 * START OF THE LOOP FOR COMPLETELY TESTING 1 UNIT 


if .DRIVE_STATUS [£.LUN] eql ACTIVE 
then 


> 

LSLUN = .LUN; 
SECTOR = LOWEST: 
WPTR = WBRUFF; 
RPTR = RBUFF: 


while .SECTOR lega KIGHEST do 
begin 


WRDCNT = RNDWC (): 
SET PTRS (.WRDCNT): 
NEXT_SECT = .SECTOR + (.WRDCNT/256): 


‘* 5 * START OF TEST FOR AN ACTIVE UNIT 


:* 6 * START OF A PASS THROUGH ALL SECTORS 
‘EXPECT VALUE BETWEEN 1 AND BUFSIZ 


if .SECTOR eql .NEXT_SECT then NEXT_SECT = eNEXT_SECT + 1; 


if .NEXT_SECT gtra HIGHEST 
then 


poate 
WRDCNT = 256*(HIGHEST - .SECTOR + 1): 


eee eee ae ow -— 


a 
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‘ RANDOM SEQ 0295 
DATA 
sg aa 27-Mar-1982 19:24:42  TOPS-20 Bliss-16 v2(212) 
13396 a. TESTING RANDOM DATA & WORD COUNTS 27-Mar-1982 19:23:44 | PA:<NEALE>MLX4.BLI.5 ( 
i 7 7210 NEXT_SECT = HIGHEST + 1: 
1 i: : 731 end: 
i 1 : itt VALUE = write (.LUN, .WRDCNT, -WPTR, .SECTOR); 
1 . 
13 : Sie i* SEE HOW SUCCESSFUL THE WRITE WAS: 
13385 : 7217 in 
- gig 'SEE "SYSERR' FOR DEFINITION 
i Oe ee ee ee 
3 9: 7221 seal 
3 3 : , $ begin ‘x 6A * RETRY ALLOWED 
1 38 ; 7234 if RETRY (SIX, write, .LUN, .WRDCNT, .WPTR. .SECTOR) neg 0 
13300 , 32 then ‘ 'THE RETRY FAILED == SYSTEM FATAL ERROR 
: 7227 begin i : 
3: fate sip LIM = EE 4: ow 5. mame emnom of eum 
13308 | 7385 DODU (.LUN): ft 
13308 | 530 leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 
13290 : rea) end; ‘ 
i Be “ e 
: 7235 
G4 : 7538 - begin !* 6B * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
1c | Ss WHY. DROPT C.LUN] = CODE_5:; vz 
' $9 : 1536 ERRDF (5202, MSGI, 0): !eee* OPTION 5, RAND2 ERROR 02 * 
; 50 tenue ibe: ! JUMP JUST BEYOND END OF BLOCK * 4 « 
1 o : 7241 eav ie 
1 19 : se end: ' 
1 
; ete at! VE ERROR =-- NO RETRY ALLOWED 
i : ete peRDF (5203, MSG1, 0}: -- ions ORTON 5, RAND2 ERROR 03 sae 
18 : 4s WHY DROPT [°LUN] = CODE_6: 
18 ; ook: foeve ite. 'JUMP JUST BEYOND END OF BLOCK * % * 
13e18 ¢ , 2 | ond: ° it 6C * 
/ 5 : 7251 tes: 
/ 1: 5 38 COMMAND = CHOOSE (); 
4 : 5520 a -COMMAND eql read 
13424 ; 725 en 
ms: Oe ia win | 
| $ : 7 38 VALUE = read (.LUN, .WRDCNT, .RPTR, .SECTOR): 
13428 : 7260 end 
1 : 7261 else 


— TE UR ce ae . 
— 
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RAND1 TESTING RANDOM DATA SEQ 0296 
13431 = MLX4 27-Mar-1982 19:24:42 TOPS=20 Bliss-16 v2(212) 
1343 : TESTING RANDOM DATA & WORD COUNTS 27-Mar-1982 19:23:44 | PA:<NEALE>MLX4.BLI.5 (45) 
1 : 726 begin 
13e36 ? 7506 PTR = .wPTR: 
13436 : 7264 VALUE = CHECK (.LUN, .WRDCNT, .WPTR, .SECTOR): 
13437 ; 7265 end; 
Ut re : 7266 
13439 ; 7267 b+ 
13440 : 7268 ! SEE HOW SUCCESSFUL THE OPERATION WAS: 
13461 : 7269 ie 
1 4g : 7270 
13443 ; 7271 selectone .VALUE of ‘SEE "SYSERR' FOR DEFINITION 
13444 : 727 set ‘OF ERROR # CONTAINED IN ‘VALUE 
13445 ;: 727 
13446 : 7274 [0] : 
i rf : ie if .COMMAND eal read 
3 e e rea 
13449 : 7377 — 
13450 ; 7278 begin 
13451 : 7279 
1345¢ : 7280 if (DBL_VALUE = DOUBLE_CHECK (.WPTR, .RPTR, .WRDCNT)) neq 0 
13453 : 7281 then 
Ieee 5 7282 
13455 : 7283 SAYWHO (.LUN); 
1 36 : 7284 PRINTB (SAY1, MSG5); !"ECC LOGIC FAILED TO DETECT DATA ERROR’ 
13457 : 7285 PRINTB (FMT12A, ..DBL_VALUE, . ; 
13458 : 7286 '*GOOD DATA: XXXXXX AT LOCATION YyYvyy’ 
13459 : 7287 DBL_VALUE = .DBL_VALUE + BUFSIZ*2: 
13460 ; 7288 PRINTB (FMT12B, -.DBL_VALUE, .DBL VALUE): 
13461 : 7289 '*BAD DATA: PPPPPP AT LOCATION a0QQQO' 
1 : 7290 WHY DROPT C.LUN] = CODE_8; 
63 : 7291 ERRDF (5206. MSG1, 0): !eeee OPTION 5, RAND2 ERROR 04 tee 
13465 ; 729 leave LOOP; ! JUMP JUST BEYOND END OF BLOCK * 4 « 
13466 ; 7294 end; 
1 5 7295 
| 5 7296 end; 
1 3 7297 
1 s 7298 {1] : 
: , 99 begin '® 6D * RETRY ALLOWED 
1 : 7301 if RETRY (SIX, .COMMAND, .LUN, .WRDCNT, PTR. .SECTOR) neq. 0 
: ¢ : ther 'THE RETRY FAILED -- SYSTEM FATAL ERR 
PY n 
13476 ; » WHY DROPT [.LUN] = CODE_6; 
: ¢ 5 ERRDF (520 » MSG1, 0); “!seee OPTION 5, RAND2 ERROR 05 sees 
1 5 7307 leave LOOP; JUMP JUST BEYOND END OF BLOCK *« 4 * 
: : g end; 
1 : 7310 end; 'e 6D * 
1 : 7311 
| 3 i is (2) : 
1 ; 731 begin !* 6£ * FATAL CONTROLLER ERROR -= NO RETRY ALLOWED 


; 
' 


| 
| 
, 
| 
| 
| 
| 
| 
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RAND1 TESTING RANDOM DATA SEQ 0297 
13487 ;MLX4 27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212) 
! 38 ; TESTING RANDOM DATA & WORD COUNTS 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.BL1.5 (45) 
13490 ; 14 WHY DROPT C.LUN] = CODE_5; 
} a ° 12 eB MSGI, 0); !eae OPTION 5, RAND2 ERROR 06 «e«« 
1 3 : 7317 leave LOOP; !JUMP JUST BEYOND END OF BLOCK « 4 « 
13496 ;: 18 end; 's 6E * 
13495 ; 19 
1 38 s 0 (3) : 
13497 ; 1 pogin -* 6F * FATAL DRIVE ERROR -- NO RETRY ALLOWED 
1 oS : 7 $ ERRDF (5207, MSG1, 0): !xee* OPTION 5, RAND2 ERROR 07 ««ax 
1 : 7 WHY DROPT C.LUNJ = CODE_6; 
200 : 4 DODD (.LUN): 
1 3 5 leave LOOP; ! JUMP JUST BEYOND END OF BLOCK * 4 « 
Be : 7 $ d: . 'e 6F « 
3 7 
7328 [4] : 
505 7329 poate '* 6G * UNRECOVERABLE DATA ERROR 
5 7330 ISOLATE (); 
5 7331 ERRDF (5208, MSG2, 0): !xee® OPTION 5, RAND2 ERROR 08 tex 
7 . WHY DROPT C.LUN) = CODE_7; 
73: DODD (.LUN): 
0 7334 leave LOOP: ! JUMP JUST BEYOND END OF BLOCK * 4 * 
511 7335 end; ' 6G * 
ai¢ 7 
1 7 [5] : 
514 7 pegin :* 6H * RECOVERABLE DATA ERROR 
516 ISOLATE (): 
Hi if .ERROUT then PRINTB (FMT10B, .CHAN); 
1 a8 \ 


; T QQ° 
OLDSEC = .MLEL; 
OLDCHN = .CHAN; 


. RETRY (ONE, .COMMAND, .LUN, .WRDCNT, .PTR, .SECTOR) eql 5 
en 


A tac eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
begin 
if .ERROUT then ERRHRD (5209, MSG4, 0): 


!a%% OPTION 5, RAND2 ERROR 09 exe 
UP_HARD_COUNT (.LUN, .BOARD) ; 


else 
begin 


if .ERROUT then ERRSOFT (5210, MSG3, 0): 


!eae OPTION 5, RAND2 ERROR 10 *e« 
UP_SOFT_COUNT (.LUN, .BOARD): 


> | 
MEW OOS NOAUS WIN =OOONC 


PD PUPS SVU SIA ES 
2 Oo “IO 


INNS 


> OOWC 
We Wit 





LL SE < 
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RAND1 TESTING RANDOM DATA 
13543 =MLX4 27-Mar-1982 19:24:42 TOPS=20 Bliss-16 V2(212) 
13864 : TESTING RANDOM DATA & WORD COUNTS 27-Mar-1982 19:73:44 PA:<NEALE>MLX4.B8L1.5 (45) 
13546 ; 7 end 
1 279 : 7306 
1 278 $ 7 else — 
13860 730 ‘eaiid 
33 : 7 4 if .ERROUT then ERRSOFT (5211, MSG3, 0); 
1355 : 7 4g !xeee OPTION 5, RAND2 ERROR 11 «exe 
1 a2e : 7376 UP_SOFT_COUNT (.LUN, .BOARD): 
13555 ; 7375 end; 
1 229 s 7376 
13557 ; 7377 end; '* 6H * 
1 325 : 737 tes; 
13559 ; 737 
13560 ; 7380 SECTOR = .NEXT_SECT; 
13561 ; 7381 WPTR = .WPTR + 2: 
; 206 8 ee end; '* 6 * END OF A PASS THROUGH ALL SECTORS 
1 364 : f 84 end: !x 5 * END OF TEST FOR AN ACTIVE UNIT 
13566 : 7386 1+ 
13567 ; 7387 ! Test to see if this uut's address space is 
1 308 : 7388 : to be read for soft errors. This test is 
1 28 : 7389 : is intended for DMT purposes. 
13570 ; 7390 t= 
1 4. $ 7391 
1 % : 739 if .EFNS21 ‘Is the background pattern to be read 
13573 ; 739 then 
13574 ; 7394 begin 
13575 ; 7395 
1 3f8 : 7396 =! 
13577 ; 7397 ! version czmlbb changed incr to incru 
1 th. ; cae : : 
' 2 : ate incru SECTOR from LOWEST to HIGHEST do 
13581 : 7401 if read (.LUN, 256, RBUFF, .SECTOR) eql 5 
13582 ; ibe then 
13585 ; 74 eats os 
: ; ; ribs ISOLATE (); ‘Find the failing bank and board no. 
: 2406 if .ERROUT then PRINTB (FMT10B, .CHAN): 
: 5 : bys Print where the error is 
1 : 7410 i Save the contents of the ML error Location 
1 39 : 7411 ! register so we can compare it to the new 
1 3 : aig : contents of this register after the retry. 
135935 ; 741 : This is done to classify the error. 
} 29¢ : cite OLDSEC = .MLEL 
135% : 41 OLDCHN = ° CHAN: 
1 299 : mis ; 





SEQ 0298 


Dao 








C 8 

ZMLBBO PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 280 
AND1 TESTING RANDOM DATA SEQ 0299 
13599 ;MLX4 27-Mar-1982 19:24:42 TOPS-20 Bliss=-16 V2(212) 
iano ; TESTING RANDOM DATA & WORD COUNTS 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.8L1.5 (45) 
1308 : 7418 ! Do a classify petty call. If the same error 

1 : 7419 : occures then classify it as a hard error. If 
13604 ; 7420 ; a different error occured or the error went away 
13002 : 9 2 : then classify it as a soft error. 

1 : 74 

13608 ; 7424 if RETRY (ONE, .COMMAND, .LUN, 256, .PTR, -OLDSEC) eql 5 
1 : 7425 then | 

13610 ; 7426 : : 

13611 ; 7427 : The same error occured so see if it is at the same 
uF af : 7428 : sector and channel number, if so then classify 
13613 ; rts ! it as a hard error else classiy it as a soft 

15616 ;: 74 ! error. 

13615 ; 7431 ! 

1 16 ; 7432 : 

13617 ; 7433 if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 
13618 ; 7434 then 

} 19 ; ee begin ‘Same error occured ‘hard’ 
13621 ; 7437 if .ERROUT 'Print error if enabled 

136 § ; 7438 then 

1 ; 7439 begin 

13624 ; P 7440 ERRHRD (5212, ‘Error number 

13625 ; P 7441 MSG4, ‘Error message 
136 $ $ 744 0); ‘Additional message routine 
1 : 744 end: 

1 5 7444 

1 5 7445 UP_HARD_COUNT (.LUN, .BOARD): 

1 : 7446 end 

13631 ; 7447 else 

’ $ : ue begin 'Not the same error ‘soft’ 

1 : 7450 if .ERROUT ‘Print error if enabled 
13635 ; 7451 then 

1 : 745 pegio 

13637 ;: P 745 ERRSOFT (5213 ‘Error number 

1 ; P 7454 MSGS, 'Error message ; 

1 ; 7455 0); ‘Additional message routine 
ati or 

1 : 7458 UP_SOFT_COUNT (.LUN, .BOARD): 

1 4 : 7459 end 

13644 ; 7460 : 

13645 ; 7461 else ‘Not the same error ‘soft' 

1 $ : 746 begin | 

1 : 1G? 

13648 ; 74 if .ERROUT ‘Print error if enabled 
13649 ; 7465 then | 

13650 ; 74 peain 

13651 ; P 746 ERRSOFT (5214, ‘Error number 

1 3g ; P 7468 MSG3, ‘Error message 
13655 ; 7469 0); ‘Additional message routine 
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RAND1 TESTING RANDOM D 
13655 =:MLX4 
13026 : 
13657 
13658 : 7470 
it #4 : 7471 
1 ; 747 
13661 ; 747 
13088 ; 7474 
1 : 76475 
13664 : 7476 
13666 ; 258 
13667 : 7479 
13669 : rigs 
13670 ; 748 
13671 : 748 
13078 : 7484 
13675 : 7485 
13677 
13682 073124 004167 
1368 693156 162706 
13684 073134 012746 
lis Grane? Sets 
13687 O53166 610608 
13688 073152 104414 
13689 073154 005066 
1 073160 000167 
13691 Oras 016766 
13038 73172 005001 
te 073174 000167 
13694 a 00 004767 
ib 3 73204 010100 
1 i BE: 06 00 
rt 73210 006200 
12 00 
14 00 
g 6 
4 


SRERERERI SA 


SSNS NNN NNN 
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TESTING RANDOM DATA & WORD COUNTS 


end; 


end; 
end; 


end; 


return; 
end; 


000026 1$: 


146414 2$: 


001460 3$: 


RAND2: 


UP 
end 


end; 





end; 


5 


SOFT_COUNT (.LUN, .BOARD); 


ee -sts steitencnees 


83 19:98:44 


END OF LOOP THAT COMPLETELY T 
* END OF LOGICAL UNIT SELECTION 


END OF REPEAT LOOP FOR THIS ROUTINE 


END OF ROUTINE 


RAND2 TESTING RANDOM DATA & WORD COUNTS 


a SSAVE5 


2oP 
/RTNSB,~(SP) 
#SAY1,=(SP) 
#2,-(SP) 
SP,RO 


14 

22(SP) 

LSUNIT ,26(SP) 
RI 


R 
#DRIVE.STATUS.RO 
RO,-(SP) 
R1_-(SP) 

#177770, (SP) 
#1,-(SP) 
~(§P 

PC .BLSGT2 
#10,SP 


&$ 
31$ 


; #,* 


> LUN,* 


TOPS=20 Bliss-16 V2(212) 


PA: <NEALE>MLX4.BL1.5 


(45) 


ESTS 1 UNIT 
LOOP 


SEQ 0300 


ee ee 6 eee ee - 


SL A " > 


7107 
7178 


7181 
7184 


7186 


7190 


iii 





PE 
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CoOooooooo 
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ee 
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ee 
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RFORMANCE EXERCISER 
WORD 


TING RANDOM DATA @ 


poooSe 
000024 
174652 


153570 


000400 
111614 
000012 
00001 
0001 
000030 


000400 
000030 
000012 


137224 
151752 
000001 


out 
137166 
sa 


000004 


000030 


000012 


034446 


2MLX4 


4$: 


5$: 


6$: 


7$: 
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TESTING RANDOM DATA & WORD COUNTS 


R1,LSLUN 
R1,R0 


LOW.SECT(RO) .R3 
#WBUFF ,WPTR 


#RBUFF LRPTR 
#TOP.SECT,24(SP) 
RO,24(SP) 
R3-824(SP) 

PC .RNDWC 


R2,-(SP) 
PC. SET.PTRS 
R2. (SP) 
#400,-(SP) 
PCB $DIV 
RO, 12(SP) 
R3,RO 


fs oa 
12(SP) ,a30(SP) 


7$ 

oer is?) RO 
RO 

RO 

RO 


1 
Gpeitet .OROPT (RI) 


LUN, * 
LUN,* 


> *,SECTOR 


SECTOR,* 


> *,WRDCNT 
> WRDCNT,* 


WRDCNT,* 


ECTOR,* 
SECTOR ,NEXT.SECT 


; NEXT.SECT 


NEXT.SECT,* 


SECTOR,* 


SECTOR, * 


> *,VALUE 
; VALUE ,* 


LUN,* 
WRDCNT ,* 


; SECTOR,* 


*,* (LUN) 


SEQ 0301 


27-Mar-1982 19:26:64 
27-Mar-1982 19:28s04 
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AND2 TESTING RANDOM DATA & WORD COUNTS SEQ 0302 
13767 SPL XG $7) —far= 1982 SE Sb TOPS 
768 : TESTING RANDOM DATA & WORD COUNTS 7-Mar-1982 19:23:44  PaAa:< 
13770 0735 -WORD 12121 
771 0735 .WORD MSGI 
1 3 MOV R1,R0 3 LUN,* 7230 
1 TRAP =‘ | 
1 54 BR 10$ : 7231 
344 00002 8$: cH Re .W2 3 VALUE,* 7219 
1 55 000005 034446 MOVB #5,WHY.DROPT(R1) : *,*(LUN) 7238 | 
1 3 RAP 55 : 7239 
562 -WORD 12122 
564 -WORD MSGI 
- WORD 0 / 
‘ MOV R1,RO : LUN,* 7240 
57 TRAP 3s «5 
57 900414 BR 10$ : 7261 
7 376 27 000003 9$ CMP R443 : VALUE, * 7219 
$602 001014 BNE = «118 
604 104455 TRAP 3s «4555 : 7246 
$606 WORD 12123 
51 -WORD MSGI 
612 - WORD 0 | 
614 000006 034446 MOVB $#6,WHY.DROPT(R1) : *,* (LUN) 7247. 
522 MOV R1,R0 : LUN,* 7268 
56.24 TRAP =‘ 51 
526 000012 10S: ADD #12.SP ; 7249 
5 36 152526 11$: JSR PC, CHOOSE : 7253 
540 000022 MOV »22(SP) : *, COMMAND 
73646 CLR ; 7255 
3( a7. 045612 CMP WREAD : COMMAND, « 
B03 073656 137010 000024 MOV RPTR,24(SP) ; *,PTR 7258 
BC 66 MOV R1,-(SP) : LUN,* 7259 
aC 566 MOV R2,-(SP) : WRDCNT,* 
806 07367C 136776 MOV = RPTR, =(SP) 
B07 073674 MOV »~(SP) ; SECTOR,* 
BOE $76 151710 JSR ; RE 
31 136760 000024 12%: Mov WPTR,24(SP) : *,PTR 7265 
1 712 MOV R1,-(SP) : LUN,* 7264 
BI 4 MOV R2,-(SP) : WRDCNT,* 
381 71 136746 MOV WPTR,-(SP) 
814 073 MOV R3,-(SP) : SECTOR,* 
BY 152050 JSR PC, CHECK 
+ 13$: MOV RO R4 : *, VALUE 
31 BNE 178 : 7271 
30 OF 7% 750 14$ oe ie 
: 746 000730 15$: MOV WPTR.-(SP) : 7280 











ZMLBBO Ste oe EXERCISER 


kl eh ee ee meld eel eed eld ee 
gaeeecee — 
SOQOooOCOoOCoO 
Gitolotolcs 
ae oO 


wa 
ooo 
RRS 


ovo 
oO 
NNN 
SRRRARE 
OOS900O 
ed ed 
MWRWIOWSOX 


Ol te ee ee on oe 


7 
O74 
3B4e Orenee 
5 074046 
074054 
one 
1 764 
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1 074076 
138 074100 
136 0741 
136 Beers 
138 7411 
13856 974114 
156 741 6 
138 74122 
138é 741 
1386 741 
1386 741 
1386 741 
1386 7414 
: RB ¢ a74136 
13867 97413 
13868 O74166 
13870 O74 ea 
13 7417, 
1 74176 
1 74 
136 74 
136 74 
136 7621 
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TESTING RANDOM DATA & WORD COUNTS 


RPTR,=(SP) 
R2,-(SP) 

P¢ «DOUBLE . CHECK 
RO.40(SP) 

14§ 

R1,-(SP) 

PC, SAYWHO 
#MSG5, (SP) 
#SAY1,-(SP) 
#2,-(SP) 

SP RO 


46(SP), (SP) 
a46(SP) ,-(SP) 


12124 
MSG1 


ng 
= (SP 
~~ (SP) 
4(SP) ,=(SP) 
(SP) 
RY 


#4 , WHY .DROPT(R1) 
12125 
MSG1 


Se Se te Ge Be 


; WRDCNT,* 


; *,DBL.VALUE 
; LUN,* 


° SP,* 


; DBL.VALUE,* 
; DBL.VALUE,* 


. SP,* 
° * DBL. VALUE 


DBL. VALUE ,* 


: DBL.VALUE.* 


; SP,* 
; *,*(LUN) 


; LUN,* 


; VALUE,* 


COMMAND , * 
LUN,* 
WRDCNT ,* 
PTR 


* 
: SECTOR,* 


*,* (LUN) 


982 19:3 


* 


ee ee ee ee 


3:4 


eee 
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I WORD COUNTS 
















AND2 TESTING RANDOM DATA SEQ 0304 
13828 $-fer=3 A Se TOPS 
13a, ¢ TESTING RANDOM DATA & WORD COUNTS 7-Mar-1 19:23:44 PA:< 
074 i2 010100 R1.RO : LUN,* 7306 
1 One 1 50 21$ : 7307 
5 2 9 oe¢ 2 000002 18$: R42 : VALUE,* 7771 
i 2 6 112765 000005 034446 #5,WHY.DROPT(R1) 3 *,* (LUND 7316 | 
1 074 012126 «WORD 12126 : | 
: iS, ¢ 0 “WORD _ | 
13898 24 0101 : MOV R1.RO : LUN,* 7316 | 
1 074 50 3 BR 21$ : 7317 
1 7425 000003 19$: CMP R4 #3 > VALUE,* 7271 | 
! by 38 1 ioe 4 208 7322 | 
1 74 be 121 7 12127 . | 
130 Greate 85388 ee 

13901 074 ° 112761 000006 034446 #6, WHY .DROPT(R1) : *,*(LUN) 7323 
1 306 074276 010100 R1,RO0 : LUN,* 7324 
13904 O7e3oo OoGeig 31$ ; 7325 
a . 04 0627 000004 20$: R4 4 > VALUE, * 7271 
1 74312 ; 7 163014 PC, ISOLATE : 7330 | 
1 74316 1 635 TRAP : 7331 
1 74320 012130 -WORD 12130 

13910 2 011120 . WORD AS62 

1 4 74 3¢ 119761 000007 034446 hove #7 ,WHY .DROPT(R1) ¢ *,*(LUN) 7332, 
13014 pease Sooass Trap gy *F? ceca wong 
13915 074340 06 900022 21$: ADD #22,SP ; 7336 | 
1 916 4 0010 é ees: JMP | 

3 | 00000 23$: cmp R65 : VALUE,* 7271 
1 18 : 142750 JSR PC. ISOLATE : . 7339 
139¢¢ ; 57 000001 105670 BIT #] ,ERROUT : 7341 
1 : } 140012 MOV QML .REG+42,R5 

1 . J . 4' ASR R5 

13958 res am. (Ue 

139 5 006- ASR R5 

i 62 ASR R5 

177700 Bic #1 77700 RS 

1 i MOV #FATI0OB,-(SP) 

3 746 itt MOV #2,-(SP) 

1 MOV SP.RO : SP,* 
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RAND2 TESTING RANDOM DATA & WORD C SEQ 0305 
SMLXG $0 -mern 198s 19:24:42 TOPS 

° TESTING RANDOM DATA & WORD COUNTS 7-Mar-1982 19:23:44 PA:< 
1 14 
1 #6,SP 
1 137746 000036 248: QML .REG+44, 36(SP) : *, OLDSEC 7344 
137736 afl .REG+42,R5 : 7345 
1 ASR R5 
1 ASR 
1 ASR R5 
1 ASR R5 
1 ASR R5 
1 177700 BIC #177700,R5 
1 2 MOV R5,42(SP) : *, OLDCHN | 
13950 1 MOV #1,=-(SP) : 7347. 
1 1 0000 MOV 34(SP) ,-(SP) > COMMAND, « 
13952 074 1 MOV R1,=(SP : LUN,* 
13953 074510 01 MOV R2,-(SP) : WRDCNT,* 
13954 745i 16646 000044 MOV 44(SP) ,-(SP) : PTR,*® 
13955 074516 01 MOV R3,-(SP) : SECTOR,* 
13 765 151500 JSR PC_RETRY 
1395 74524 000014 ADD “ik SP 
13989 972 _o BNE Bye | 
960 245 7766 137650 000036 cme aL .REG+44 , 36(SP) : *, OLDSEC 7350 
1396 reece 16600 000042 MOV 42(SP) RO : OLDCHN,* 
13963 074552 017705 137632 MOV QML .REG+42,R5 
13964 074655 5 ASR R5 
13965 074 5 ASR R5 
13966 074 5 R5 
968 74566 ; ASR Re 
1 7% 5 ASR R5 
13990 74572 5 177700 BIC #177700,R5 
ire brsene $56 me fa" 
1 99 74 3 000001 105450 BIT #1, ERROUT : 7354 
13974 07461 14 BEQ 5$ 
13975 074612 104456 TRAP 6 
1 976 7461 131 WORD 12131 
13977 07461 3 .WORD  MSG4 
1 978 74 . -WORD 0 | 
13979 07 25$: MoV R1,-(SP) : LUN,» 7357 
13980 074624 137512 MOV BOARD, -(SP) 
! : 746 142566 JSR PC ,UP.HARD. COUNT ie 
13983 07 767 000001 105414 26$: BIT #1, ERROUT ; 7362 | 
13984 074644 | BEQ $ 
13985 07 457 TRAP 
13986 074650 012132 -WORD 12132 
ion reset Boo oo 
13989 0746 1 28$ : 7365. 


SS SE ee ee ——-2-~ 


-——_-—— ee ne = 





NLL eres sssssussssistsnenmemsseemmns _—_-- ee tetas estates sumone 





J 

CZMLBBC PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 287 

RAND2 TESTING RANDOM DATA & WORD COUNTS , SEQ 0306 
13991 “MLXG 37-Mar-1982 19:26:42 TOPS 
932 : TESTING RANDOM DATA & WORD COUNTS 7-Mar-1982 19:23:44 PA:<. 
994 74660 o6f48% 000601 105372 27s: eI #1, ERROUT ; 7371 
1 74670 1 <3? TRAP 
13998 7467 3 .WORD 12133 
1 998 .WORD MSG 
1 “WORD 0 
14000 28$: MOV R1,-(SP) : LUN,* 7374 
14 137434 MOV BOARD, -(SP) | 
14 143172 JSR PC,UP. SOFT. COUNT 
14 298: CMP (SP) +. (SP)+ ; 7338 
14 30 0$: MOV 30(SP) .R3 3 NEXT.SECT. SECTOR 7380 
14 2 135742 ADD #2,WPTR : 7381 
14 900022 ADD #22,SP : 7199 
14 176 JMP 5$ : 7198 
16 000001 105316 31$: BIT #1, EFNS21 : 7392 
14 BNE 32$ 
140 000430 JMP 42$ 
140 32$: mov RI .RO : LUN,* 7399 
140 034500 000024 MOV TOP. SECT(RO).24(SP) 
140 034460 mov LOW.SECT(RO) .R5 : &, SECTOR 
14 33$: MOV R1,~(SP) : LUN, « 7401 
14 000400 MOV #400,-(SP) : 
14 022670 MOV #RBUFF ,=(S 
14 MOV R5,-(SP) : SECTOR.* 
160 15 JSR PC READ 
14021 10 ADD #16 
140 é 5 RO.# 
14 BNE 4 _ 
14024 142302 JSR PC, ISOLATE : 7404 
16 5 000001 105222 IT #1, ERROUT : 7406 
14 137344 MOV aML .REG*+42,R0 
14 ASR RO 
14 ASR 
14 ASR RO . 
14 ASR RO 
14 ASR RO 
14 ASR RO 
16 177700 BI ; a 77700 RO 
14 MOV #FAT10B,~(SP) 
14 000008 MOV #2,-(SPS __ 
14 MOV SP,RO : SP,* 
14 TRAP «14 | : 
14 000014 34$: Mov fil REG +O 14 (SP) : *, OLDSEC 7415 
14 ; 1372 MOV QML .REG+42.R0 : 7416 
14 ASR : 
14044 ASR RO 
14045 ASR RO 
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14047 

14048 

14049 

14050 0751 
14051 0751 
brit 751 
he 751 
14054 075140 
pet 75144 
14 26 Bpeies 
14057 075154 
hes 31? 
14060 97516 
12061 075) 


™“ 
ur 


SRRINS 








ed ed eed eed ed 
=) 
™~ 


ed ed ed 2d eed 
aS 
SSzSE 
So 

NNN 


x 
oO 
~~ 
| 






177700 
0 


1 
000012 


22 
Mer o5e 
151026 
000014 
137176 


000020 
137160 


177700 


000001 


137040 
142114 


000001 





000014 


104776 


104742 


104720 


sMLX4 


35$: 


36S: 


37$: 


38$: 


Ee 


K 
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RO 
RO 


RO 
#177700,R0 
RO,20(SP) 


26(SP) .=(SP) 
PC RETRY 
#i4,SP 

RO,# 


37 
@ML .REG+44 ,14 (SP) 


20(SP) ,-(SP) 


a 

Ra cons 
co 

36$ 


ERROUT 





0 
R1,-(SP) 
BOARD ,-(SP) 


ear neoese RO 


PC UP HARD. COUNT 


#1 ,ERROUT 
12135 
nSc3 


3 
#1, ERROUT 
38$ 
57 
121 
MSG 


0 
R1,-(SP) 


* ,OLDCHN 


COMMAND , * 
LUN, * 


3; PTR,* 
; OLDSEC,* 


* ,OLDSEC 
OLDCHN, * 


LUN, * 


LUN,* 


5 


7-Mar-1982 1 
7-Mar-1982 1 


SEQ 0307 


9:24:42 TOPS 
9:23:44 PA:< 


7424 





a ee 





ee seessenesnstesteesenstenensneneneeeeee=e--- 
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RAND. TESTING RANDOM DATA & WORD C SEQ 0308 
14103 sMLX4 27-Mar-1982 19:24:42 TOPS 
Welbe ; TESTING RANDOM DATA & WORD COUNTS 27-Mar-1982 19:23:44 PA:< 
14106 075354 SrOre6 176766 MOV BOARD ,-(SP) 

14107 075 7 142520 JSR PC,UP.SOFT. COUNT 

14108 75 022 : 39$: CMP (SP) +, (SP)+ : 7403 
141 75 5 40$: INC R5 ; SECTOR 7399 
14110 075 reat: 000024 41$: CMP RS .24(SP) ; SECTOR,*« 

14111 075374 101 é BHI 42$ 

17156 075 4 167 177370 JMP 33$ | 
1411 07940¢ 201 42$: INC R1 ; LUN 7184 
14114 abed 0201 0600026 43%: CMP R1,26(SP) ; LUN,* 

14115 73410 00 BGE 44$ | 
10188 oe 20) 167 175562 JMP : 
14117 07541 5266 000022 44$: INC 22(SP) ; COUNT 7181 | 
14118 0754 $686 000022 000046 CMP ceeSP) .46(SP) 3; COUNT, REPEAT | 
14119 0754 4 BGT 45$ | 
14120 ie 9, 2 oe thy 175526 JMP 1$ | 
14121 075436 27 000030 45$: ADD #30,SP 3 7107 | 
12158 075442 000207 RTS PC 

12134 : Routine Size: 616 words 

101$3 ; Maximum stack depth per invocation: 36 words 

14131 


Se Oe - 


—_ 2 — 3 
BOVRARY 


™ 
o 


Be De Se Ge Be Ge Se Se Se Be Be Be Pe Se Pe Se Se Se Se Oe ee Se Se Ge 


ene 
MSWN— 


ae 


NO 


MAA AA AUT 
WBNAOULSWN—OWOO 


Coe 


aS 
Pate Ge Ge Ge Ge Be Ge Se Be Oe Be Pete Se Se Se Se Ge Be Se Be Be Be Se Se Ge Se 


co 
Ww 


Se 


SS sssessestnenesuussssetsseensinnenseeneenerere- 
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RANDOM DATA & WORD COUNTS 
27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212) 
TESTING RANDOM SECTORS, DATA, WORD COUNTS 27-Mar-1982 19:23:44 PA: <NEALEDMLXG-BLI-5° (c6) 


Zsbttl ‘TESTING RANDOM ry tne fs DATA, WORD COUNTS‘ 


a RANDS (REPEAT) 


> Novaiue = 


gin !* 1 * START OF ROUTINE 
e 
ROUTINE : RAND3 (REPEAT) 
PURPOSE : TO CHECK RANDOM SECTORS 
ARGUMENT: § REPEAT = NUMBER OF TIMES TO EXECUTE ENTIRE ROUTINE 


THE CODE FOR "RAND3’ IN BRIEF: 


BEGIN 1 (START OF ROUTINE) 
SAY ROUTINE IS RUNN 

INCR COUNT FROM 1 TO REPEAT 

: BEGIN 2 (START OF REPEAT LOOP FOR THIS ROUTINE) 
: GENERATE THE RANDOM PATTERN 


FR TO L 

: : BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP) 
2: INITIALIZE BUFFER POINTERS 

: : : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
res al IS ACTIVE 


: : 3 BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT) 
: : 3 : TIMES = (HIGHEST = LOWEST)/2 + 1 
: : INCR KOUNT FROM 1 TO 

yet AR Od OF geet LOOP FOR SECTOR SELECTION) 





ITs 
Ts 


FOR ERRORS (IF DROP UNIT, LEAVE LABEL) 
Pras WHETHER TO ye OR READ 


rae 433 DO THE WRITE CHECK 
: : : 3 : LOOK FOR ERRORS (IF DROP UNIT. LEAVE LABEL) 
: : : : : CHANGE BUFFER POINTERS AFTER TRANSFER 

> : : : : END 6 (END OF COUNTING LOOP FOR SECTOR SELECTION) 
: : : : END 5 (END OF TEST FOR AN ACTIVE UNIT) 

: : : END 4 (END OF TESTLOOP) 

: : END 3 (END OF LOGICAL UNIT SELECTION LOOP) 

: END 2 (END OF REPEAT LOOP FOR THIS ROUTINE) 


R 
END 1 (END OF ROUTINE) 


local 


SEQ 0309 








SS eeassssstetsiostassssssnsensieetisstsestssiseentesisteneenmssnes ess ee tre see 
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SEQ 0310 


14189 ;MLX4 27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212) 
pa E TESTING RANDOM SECTORS, DATA, WORD COUNTS 27-Mar-1982 19:23:44 PA: <NEALE>MLX4.8L1.5 (46) 
el 3g . 75 WRDCNT, 

14193 : 7539 SECTOR, 

14194 ; 7540 TIMES, 

14195 ; 7541 VALUE, 

ip aP ; 754 OLDSEC, 

14197 ; 754 OLDCHN, 

14198 ; 7544 PTR, 

14199 ; 7545 COMMAND, 

1ogne : 754 DBL_VALUE; 

14201 ; 754 

14 o ; 7548 label 

14203 ; 7549 LOOP; 

14204 ; 7550 

14205 ; 7551 PRINTB (SAY1, RTNSC): 

14206 ; 755 ! *RAND3° 

14207 ; 755 | 

14208 ; 7554 incr COUNT from 1 to .REPEAT do 

42 44 ; £322 begin !« 2 * START OF REPEAT LOOP FOR THIS ROUTINE 
14211 ; 7557 incr LUN from 0 to (.LSUNIT.- 1) do 

14 ¢ s 7558 begin ’ !* 3 * START OF LOGICAL UNIT SELECTION LOOP 
14213 ; 7559 GENS (); | 

14214 ; 7560 LOOP : : bee 

Ly 2 ; P20] begin 'x 4 * START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT 
14217 ; 756 if .DRIVE_STATUS C.LUN] eql ACTIVE 

14 18 : 7564 then 

14219 ; 7565 begin 'x 5 * START OF TEST FOR AN ACTIVE UNIT 

14 9 : 7566 LSLUN = .LUN: 

14 : 7567 WPTR = : 

14 $ : 7568 ; RPTR = RBUFF: 

1 : ie: ; TIMES = (HIGHEST = LOWEST)/2 + 1; 

14225 ; 7571 incr KOUNT from 1 to .TIMES do 

14 § 3 757 begin '* 6 * START OF COUNTING LOOP FOR SECTOR SELECTION 
14 : 757 WRDCNT = RNDWC (): 'VALUE BETWEEN 1 AND BUFSIZ 

14 g : 7574 SET_PTRS (.WRDCNT): 

% é £30? SECTOR = RNDSEC (.LUN); !VALUE BETWEEN LOWEST: AND HIGHEST 

Y 1: eh if (.SECTOR + .WRDCNT/256) gtra HIGHEST then WRDCNT = 256*(HIGHEST - ~SECTOR + 1); 
§ s ath, VALUE = write (.LUN, .WRDCNT, eWPTR, .SECTOR): 

14255 ; 7581 '+ 

ie é f ¢ SEE HOW SUCCESSFUL THE WRITE WAS: 

14238 ; 75 | 

14 : 7585 selectone .VALUE of 'SEE *SYSERR' FOR DEFINITION 

2 re ; set 'OF ERROR # CONTAINED IN ‘VALUE’ 

ta $ : ? fas | 

14243 ; 7 begin 's 6A * RETRY ALLOWED 


re er - 


= ee ee 


oO 


: 


a ——— i 
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ING RANDOM DATA & WORD COUNTS 

>MLX4 27-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212) 
: TESTING RANDOM SECTORS, DATA, WORD COUNTS $p-Mar=1989 19:23:44 PA:<NEALE>MLX4.BL1.5 (46) 


am 


SEQ 0311 


eee ae be 


MNMMNNNoNorw 


YD et ae De Le 


7590 
7591 if RETRY (SIX, write, .LUN, .WRDCNT, .WPTR, .SECTOR) ne 
then ‘THE RETRY FAILED == SYSTEM FATAL FE 


begin 
7594 WHY DROPT [.LUNJ = CODE.4; 
7595 ERRDF (5301, MSGI, 0); keane OPTION Je RAND3 ERROR 01 xeen2 


: q 0 
5 ROR 
: 7596 DODU (.LUN) 


et ed od 
: >t 


MAUI 
MEW 


7597 leave LOOP;' =! JUMP JUST BEYOND END OF BLOCK * % * 
7598 end; 


end; 'x 6A * 


760 [2] : 
760 er !® 68 * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
7604 WHY DROPT [.LUN] = CODES; _ 
7605 ERRDF (5302, SGI, 0); 'eee® OPTION 5S, RAND3 ERROR 02 sees 


Fe0e leave LOOP; ” 'JUMP JUST BEYOND END OF BLOCK * 4 « 
7608 end; 'x 6B * | 


609 
ert _ be J :* 6C * FATAL DRIVE ERROR NO RETRY ALLOWED 
1n ec —— 
761 ERRDF (5303, MSG1, 0); :xxe* OPTION 5, RAND3 ERROR 03 xexx 
WHY DROPT C.LUN] = CODE_6; 


7615 Leave LOOP: !JUMP JUST BEYOND END OF BLOCK * 4 * 
7616 end: ix 6C 
7617 tes; 

7619 COMMAND = CHOOSE (); 


7621 if .COMMAND eql read 
then 


PORE RSE 
atatitat ttt 


MV“ 


DON 


RAVLS 


wi 


SSRRRS 


™N 
_" 


begin 
= .RPTR: 
7625 — = read (.LUN, .WRDCNT, .RPTR, .SECTOR): 


P99 ~~ ~~~ ee 


BOERS RRSP RRERSRRARRPRPPRER 
a 


n 
PTR = .WPTR: 
7630 — = CHECK (.LUN, .WRDCNT, .WPTR, .SECTOR): 
end; 


7638 r 
76 SEE HOW SUCCESSFUL THE OPERATION WAS: 


ed ed eed a eed eed eed ee 


76 selectone .VALUE of ‘SEE *SYSERR' FOR DEFINITION 
set ‘OF ERROR # CONTAINED IN ‘VALUE’ 


ee ed ed enh ed ed 
, ak et ae >t et 


7640 [0] : 


LS CT A A Ee i me 


SS seteesseserentensse 
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RAND2 TESTING RANDOM DATA & WORD COUNTS SEQ 0312 
14301 :MLX4 27-Mar-19 9:26:42 TOPS-20 Bliss-16 V2(212) 
oans : TESTING RANDOM SECTORS, DATA, WORD COUNTS 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.8LI.5 (46) 
14 : 764 if .COMMAND eqi read 
12308 : 764 then 
14 ® 7644 "beatin 
14307 ; 7645 : 

14308 ;: 7645 if (DBL_VALUE = DOUBLE_CHECK (.WPTR, .RPTR, .WRDCNT)) neq 0 
14 : 7647 then 

14310 ; 7648 : eg n 

14311 ; 7649 SAYWHO (.LUN): 

14 ig 2 7650 PRINTB (SAY1 "MSG5) ue * bee LOGIC FAILED TO DETECT DATA ERROR’ 
14313 : 7651 PRINTB (FATTO. wapPake¥ VALUE) ; 

14316 ; 765 OOD DATA: iio ar LOCATION vvvyyy’ 
14315 ; 765 ALUE = .DBL_VALUE + ae 

1318 : 7654 PRIRve (FMT12B, ~ -DBL_VALUE, ALUE); 

14317 ;: 7655 ; '*BAD D pied PPPppp DBL V LOCATION Q0000Q' 
14318 ; 765 WHY_DROPT C.LUN] = ODE_8; 

14319 ; 765 : PRRDPS C5304; MSGI, iF {axes OPTION 5, RAND3 ERROR 04 sexe 
14320 ; 7658 DODU (.LUN): 

14321 ; 7659 ped LOOP: !JUMP JUST BEYOND END OF BLOCK « & « 

ee g : 7660 end; 

14 s 7661 

14526 ; 766 ie end; 

14325 ; 766 

14 S Z 7664 (1) : 

12 : ree? begin 'x 6D * RETRY ALLOWED 

14 s 7667 if RETRY (SIX, - COMMAND, -WRDCNT, .PTR, .SECTOR) n 4 

1? : ° re: then ' THE RETRY FAILED -- SYSTEM FATAL ERR 

146332 7670 ‘begin TC-LUNI = CODE_4¢; 

i : 14. ERADP (5305. - 0); !xeee OPTION 5, RAND3 ERROR 05 see% 
14335 ; 767 leave LOOP; ! JUMP JUST BEYOND END OF BLOCK * 4 « 

14 : 7674 end; 

14 5 7675 

14 : 767 end; ' 6D * 

14 : 767 

14340 ; 7678 +2 oe 

14341 ; 7679 peg'e :* 6€ * FATAL CONTROLLER ERROR -=- NO RETRY ALLOWED 
14 g ; 7680 DROPT C.LUN] = CODE 3 

e Z ; 1 ERABE S506 MSG1, 0): !xae* OPTION 5, RAND3 ERROR 06 x*«2 
14345 ; 7 leave LOOP: ! JUMP JUST BEYOND END OF BLOCK * 4 « 

14 3 7 end; 

14 7685 

14348 ; 7 [3] : 

14349 ;: 7 poate ‘x 6F * fees: DRIVE ERROR -- NO RETRY ALLOWED 
14350 ; 7 ERRDF (5307, MSGI, 0) OPTION 5, RAND3 ERROR 07 «eee 
14357 ; 7689 WHY ant ® LUNI = - 

14 $ : 7690 DODD (.LUN); 

14 3 3 7691 oo ly (OOP; ! JUMP JUST BEYOND END OF BLOCK * & « 

12358 : 89 — sls 


oe ~~ 


— ee ee - einen 
D9 
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RAND2 TESTING RANDOM DATA OUNTS SEQ 0313 

14357 ;MLX4 27-Mar-1982 19:24:42 TOPS=20 Bliss=-16 V2(212) 
Ps 7 © = : : : XG. . 

1) ; TESTING RANDOM SECTORS. DATA, WORD COUNTS 27-Ma 1985 19 3 44 PA:<NEALE>MLX4.B8L1.5 (46) 

14 ; 7694 _ 2 ae 

» 1: ree 7 ate 0 ‘* 6G * UNRECOVERABLE DATA ERROR 

14363 : 7697 ERRDF (5308, MSG2, 0): !xee OPTION 5, RAND3 ERROR 08 eee 

14 s 7698 WHY_DROPT [.LUN] = CODE_7; 

14365 ; 7699 DODU (.LUN): 

tr ® 7700 leave LOOP: ! JUMP JUST BEYOND END OF BLOCK « & « 

14 : 7701 end; ' 6G * 

2ae8 : 770 

14 : 770 <2 ae 

14370 ; 7706 venta !* 6H * RECOVERABLE DATA ERROR 

14371 : 7705 ISOLATE (): 

14 ie: : 7706 

14 F 7707 if .ERROUT then PRINTB (FMT10B, .CHAN): 

14374 ; 7708 

14375 ; 7709 to T QQ’ 

14 zg 3 7710 OLDSEC = .MLEL; 

14377 ; 7711 OLDCHN = .CHAN: 

14378 ; 7712 ; 

14379 ; 7713 if RETRY (ONE, CHECK, .LUN, -WRDCNT, .WPTR, .SECTOR) eql 5 

14 : 7714 then 

14581 ; 7715 

14 $ $ 7716 if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 

14 : 7717 then 

14 s 7718 begin 

14385 ;: 7719 

by s oreo if .ERROUT then ERRHRD (5309, MSG4, 0): 

14 : 7722 'xaas OPTION 5, RAND3 ERROR 09 «xx 

14389 : 7723 UP_HARD_COUNT (.LUN, .BOARD): 

14 : 7726 end 

pg 4. ; 7725 else 

14 3 3 7726 begin 

14393 : 7727 

Hy Be : 7199 if .ERROUT then ERRSOFT (5310, MSG3, 0): 

14 4] : 7730 texas OPTION 5, RAND3 ERROR 10 x««« 

14397 ; 7731 UP_SOFT_COUNT (.LUN, .BOARD): 

14 : 773 end 

14 : 773 

14400 ; dks: else 

cr oe 
e : | cc en ge e e 

1a oe if .ERROUT then ERRSOFT (5311. MSG3 0) 

14405 : 7739 'xae OPTION 5, RAND3 ERROR 11 *xx«« 

14406 ; 7740 UP_SOFT_COUNT (.LUN, .BOARD): 

ia : or end; 

12408 : 774 end: 'x 6H * 

14410 ; 7744 tes; 

14411 ;: 7745 


ee ee ee 


fe ee 


CZML 
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14414 ; 
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TESTING RANDOM DATA & WORD COUN 


14413 ;MLX4 
TESTING RANDOM SECTORS, DATA, WORD COUNTS 


WPTR = .WPTR + 2: 
end; 


version czmlbb changed incr to incru 


'¢ 


' Test to se 
!' to be 


if .EFN$21 
then 


end; 


begin 


———————— a 
9 
A 29-MAR~82 13:41 PAGE 595 


oi nor= 1986 19:24:42 
77-Mar-1982 19:23:44 


's 6 * 


'e 5 « 


ee —_ 


TOPS-20 Bliss-16 V2(212) 
PA: <NEALE>MLX4.BLI.5 (46) 


END OF COUNTING LOOP FOR SECTOR SELECTION 


END OF TEST FOR AN ACTIVE UNIT 


e if this uut's address space is 


read for soft errors. 
is intended for DMT purposes. 


‘Is the background pattern to be read 


incru SECTOR from LOWEST to HIGHEST do 
if read (.LUN, 256, RBUFF, .SECTOR) eql 5 
then 


begin 
ISOLATE (); 


‘Find the failing bank and board no. 


This test is 


if .ERROUT then PRINTB (FMT10B, .CHAN): 


5 RETRY (ONE, .COMMAND, .LUN, 256, .PTR, .OLDSEC) eql 5 
en 
u 


Horners pinnae - 
— 


Print where the error is 


Save the contents of the ML error location 


register so we can c 


ompare i 


t to the new 


contents of this register after the retry. 
This is done to classify the error. 


DSEC 
CHN 


Do a classify retr 
occures then class 


call. I! 
y it as a hard error. 
ferent error occured or the error went 
then classify it as a soft error. 


f the same error 


If 
away 


The same error occured so see if it is at the same 


- sector and channel er 
! it as a hard error else clas 


error. 


siy it as a soft 


if so then classify 


ee 


SEQ 0314 


mo 


Oe Oe = —_ 


RANDE TE 


PERFORMANCE EXERCI 
STING RANDOM DATA 
14469 ;MLX4 
ey 3 TESTING RANDOM SECTORS, DATA 
14472 ; 7798 
14475 ;: 7799 
14476 : 7800 
lear ; 7803 
14699 * rB08 
14478 :; 7804 
14479 ; P 7805 
14480 ;: P 7 
1 1: 7 
14088 : Fa08 
16684 7810 
14485 ; 7811 
12487 | rai 
14488 : 7814 
a 
14491 : 7817 
14492 ; P 7818 
14493 ; P 7819 
14496 ; 7820 
12498 ; 5853 
14499 785 
12499 Fa5 
ap - 
ie: TR 
14504 : 7830 
14505 ; 7831 
14 3 P 7 ¢ 
14507 ; P 7 
14508 ; 78 
14 ; 7835 
14510 ; 8 
14511 ; 8 
an 
14514 : 7840 end: 
14515 ; eet 
14819 : Bc$ -— 
14518 : 7844 end: 
14819 : 5 end: 
14 ; 7. S 
V3 1: 7 end; 
12 g : 3 return; 
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4:42 


TOPS-20 Bliss-16 V2(212) 
3:44 


7-Mar-1982 19: | 
« WORD COUNTS Sooner 1985 19: PA:<NEALE>MLX4.BL1.5 (46) 


od tae eql .OLDSEC) and (.CHAN eql .OLDCHN)) 


begin ‘Same error occured ‘hard’ 


if .ERROUT ‘Print error if enabled 
then 


poate 
ER - (5312, ‘Error number 


MSG4, ‘Error message 
0); ‘Additional message routine 
end; 
UP_HARD_COUNT (.LUN, .BOARD): 
end 
se 
begin ‘Not the same error ‘soft’ 
if .ERROUT 'Print error if enabled 
then 


segie 
ERRSOFT (5313, ‘Error number 
MS ‘Error message 


!Additional Reussge routine 


0); 
end; 
UP_SOFT_COUNT (.LUN, .BOARD): 
end 
‘Not the same error ‘soft’ 
begin 
pe »ERROUT ‘Print error if enabled 


en 
“beg 
E _! (5314, ‘Error number 


G -Error message : 
: ‘Additional message routine 
end; 
UP_SOFT_COUNT (.LUN, .BOARD); 
end; 


in 4 & 
's 3 « 


END OF LOOP THAT COMPLETELY TESTS 1 UNIT 
END OF LOGICAL UNIT SELECTION LOOP 


END OF REPEAT LOOP FOR THIS ROUTINE 


'x 2 & 
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a) 
as 
Win 


SREB 
VMVIViWMWw 


14525 ;MLX4 
8; 

Te aes. 

75450 

75454 


we 


WN—© 


ed ed ed = od ed 


RES 


NO 


Ooooo°ooo 
Nan~w 
ww 
&& 

tak 


ee ed eed eed eed eed 
at >t er >t >t 
ss 
Ww 
Sx 


& 
ae 


RPRADREE 


—_— 
RRO 
Mw 

—— 
ROBE 
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000012 


RAND3: 


1$: 


2$: 


$i for-i36 19:3$504 TOPS-20 Bliss-16 V2(212) 


?-Mar-1982 19:23:44  PA:<NEALEDMLX4.BLI.5 (46) 
's 1 * END OF ROUTINE 

-SBTTL RAND3 TESTING RANDOM SECTORS, DATA, WORD COUNTS 
JSR R1,$SAVE5 : 
SUB «SP 
MOV #RINSC,=(SP) ; 
MOV #SAY1,-(SP) 
MOV #2,-(SP) 
MOV SP,RO 3; SP,* 
TRAP ‘114 
CLR 30(SP) : COUNT 
MOV LSUNIT,12(SP) : 
CLR R3 > LUN 
JMP 43$ 
JSR PC,GENS 3 
MOV R3,RO ; LUN,* 
ASR 
ASR RO 
ASR RO 
ADD #DRIVE.STATUS,RO 
a 

~ ; LUN,* 
BIC #177770, (SP) 
MOV #1,-(SP) 
CLR -(SP) 
JSR PC BL$GT2 
ADD #10, SP 
ee 
= Bins 

: LUN,* 

MOV #WBUFF ,WPTR : 
MOV #RBUFF RETR : 
MOV — 3; LUN,* 
ASL R 
MOV #TOP. SECT, 10(SP) 
ADD RO, 10(SP) 
MOV a10(SP) ,=(sP) 
SUB LOW. SECT(RO) , (SP) 
MOV ,~(SP) 
JSR PC -BLSDIV 
MOV RO, 20(SP) : *, TIMES 
INC 20(SP) : TIMES 
CLR 1e(SP) : KOUNT 
JMP 2 


oe SO Ee 


SEQ 0316 
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172304 
151222 
172322 
000400 
107236 
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134674 
147422 
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045424 
134636 
150164 
000014 
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sMLX4 


4$: 


5$: 


6$: 
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PC 


R2 
PC 


-RNDWC 
*=(SP 
*SET.PTRS 
R3. (SP) 
PC>RNDSEC 


RO. a16(SP) 


@16(SP) ,RO 
RO 


See Wty -DROPT (RS) 


12265 
MSG1 


R3,RO 
51 


R4 
7 


2 


#5 ,WHY .DROPT (3) 
55 


12266 
MSG1 


Se Ge 


* ,WRDCNT 
WRDCNT,* 


LUN,* 


* SECTOR 
WRDCNT,* 


; SECTOR,* 


SECTOR,* 
* ,WRDCNT 
* ,WRDCNT 
LUN, * 

WRDCNT,* 
SECTOR,* 


; *, VALUE 
3; VALUE,* 


LUN,* 
WRDCNT ,* 


; SECTOR,* 


*,* (LUN) 


LUN,* 


: VALUE,* 


*,* (LUN) 


Soomarn19R3 19:5 


LE ET eI ene eee min 


4:42 
3:44 


SEQ 0317 
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14653 076156 
14654 076162 
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-WORD 0 

MOV R3,RO 
TRAP 51 

BR 8$ 

CMP R443 
BNE 9$ 
TRAP 55 
-WORD 12267 
- WORD _ 
MOVE #6,WHY .DROPT(R3) 
MOV R3,RO 
TRAP 51 

ADD #14,SP 


14$ 


BR 
JSR PC, CHOOSE 


RO. 36(SP) 
CMP RO, READ 
10$ 


MOV R3,~( 
MOV R1,~-(SP) 
PC RE 


MOV R3, 
MOV 


R2,-(SP) 
MOV WPTR, (SP) 
R1,-(SP) 
JSR PC, CHECK 
MOV RO.R4 
BNE 15$ 
ROR 5 
BLO 13$ 
JMP 


MOV R2,~(SP) 


MOV RO,50(SP) 
R3,-(SP) 


PC, SAYWHO 
MOV #MSG5 , (SP) 
MOV #SAY1 ,-(SP) 


MOV #2,-(SP) 
MOV SP RO 


R5 
RPTR,34 (SP) 
~(SP) 
R2,~-(SP) 
MOV RPTR,=-(SP) 


17 
MOV WPTR,34(SP) 
-(SP) 


28$ 
MOV WPTR,-(SP) 
MOV RPTR,-(SP) 


~(SP 
JSR PC -DOUBLE . CHECK 


: LUN,* 


; VALUE,* 


* , * (LUN) 
LUN, * 


; *, COMMAND 
COMMAND , * 


* PTR 
LUN, * 

WRDCNT,* 
; SECTOR,* 


; *,PTR 

; LUN,* 

; WRDCNT,* 
SECTOR,* 
* , VALUE 


> WRDCNT,* 


* ,DBL.VALUE 
: LUN,* 


3; SP,* 


$7 


SEQ 0318 


“Mar-1982 19:26:42 
-Mar-1 19:23:44 


rr ten tte neni eae ee 


TOPS 
PA:< 


7606 


7585 


7612 


~ Ses ———— eee 
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RANDS TESTING RANDOM SECTORS, DATA. WORD C SEQ 0319 
14693 ZMLX4 7-Mar-1982 19:26:42 Tops 
14694 : TESTING RANDOM SECTORS, DATA, WORD COUNTS Soar 1386 19:23:44 PA:< 
14696 76350 104414 TRAP 9s ‘14 
14697 076352 016616 000056 MOV 56(SP). (SP) ; DBL.VALUE.*« 7651 
146698 7% 91 4 56 MOV @56(SP5 ,-(SP) : DBL.VALUE.* 

14699 76 12766 19 MOV #FMT12A.-(SP) 

14 76 012746 MOV = (SP5 

12963 re 74 vosnie TRAP : : am 

12708 76376 062766 10000 000064 ADD 0000.64 (SP) ; *,DBL. VALUE 7653 

147 976404 $616 MOV 64(SP) (SP) : DBL. VALUE, * 7654 

14705 076410 01 $46 MOV (SPS ,-(SP) ; DBL. VALUE,* | 

14706 076414 012746 906756 MOV #FMT12B.-(SP) 

14707 076420 012746 MOV #3,- 

105 re re TRAP — dated 

14710 076430 112763 000010 034446 MOVB : *,*(LUN) 7656 

14711 076436 104455 TRAP : 7657 

1678 7644 iF 70 . WORD 

14713 076442 011070 . WORD 

12718 ; . 1 “Ov LUN 7658 
o” 

14716 97645 104451 TRAP ° 

Maoh re a Sees 14$ aR . — 

12719 , 0427 000001 15$: cmp : VALUE, * 7637. 

14 7 1 or 000006 MOV #6,-(SP) : 7667 | 

14 764 1 50 MOV 30(SP) .=(SP) ; COMMAND, * | 

14 76476 01 MOV R3,-(SP) : LUN,* 

14 765 10246 MOV R2,-(SP) : WRDCNT,* 

14 7 16646 000054 MOV 54 (SP) ,-(SP) : PTR,* 

14 7 10146 MOV R1,-(SP) : SECTOR,* 

14 % 767 147510 JSR PC RETRY 

14 76514 706 000014 ADD wid, 

14 a 16 bea 7 | 

14 76 1276 000004 034446 MOVB #4,WHY.DROPT(R3) 2, *(LUND 7670 

14 76 1044 TRAP =«-_-§5 : 7671 

14 76 le 71 ‘ 12271 | 

16 7655 11070 : mcr | 

14 7 1 MOV R3,RO : LUN,* 7672. 

14 76544 451 TRAP ss) | 

14738 07, 30 BR 19$ : 7673 | 

16739 ? 000002 16$: cmp R46 #2 > VALUE,* 7637 | 

14741 076556 112768 000005 034446 MOVB #5,WHY.DROPT(R3) > *,*(LUN) 7680 

1474¢ 7 1044 TRAP : 7681 

lee Brees 81460 tome Set" 

147645 07657 : 

14746 7657 hove R3,RO ; LUN,* 7682 

14747 076576 1044 TRAP ss «57 


i eee 


- - 7 _ = = _ ee — ee EL Ree —_ _—_ -——___ 
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RAND3 TESTING RANDOM SECTORS, DATA. WORD COUN SEQ 0320 
: 77-Mar-1982 19:26:42 TOPS 
12990 — TESTING RANDOM SECTORS, DATA, WORD COUNTS So parn 198s 19:5$.44 PA:< 
14751 
RR 19$ 3 7683 
HSH HRT cmon ams et tue. Est 
14786 ere louse TRAP «4555 : 7688 
14796 076612 012273 -WORD 12273 
1675 076614 011070 - WORD MSGI 
12986 oath: 799008 000006 034446 MOVB #6,WHY.DROPT(R3) : *,*(LUN) 7689 | 
14760 7e638 016300 MOV R3.RO ; LON,* 7690 | 
eve O76 5 Oboe gi * : 7691 
14768 ae 02042? 000004 18S: CMP Rs ry, > VALUE,* 7637 | 
ieres 7e608 004767 140464 JSR PC, ISOLATE : 7696 
14766 07 104455 TRAP =«-«55 : 7697 | 
12969 7 12274 .WORD 12276 : 
re Wise Bie oe 
: #7,WHY .DROPT(R3) : *,* (LUN) 7698 | 
14904 Qecees 010300 a Rov. RSRO ONS 7699 
IA778 Greer 93706 goog, = tes: ABB te. , 770 | 
12778 7° 26 27 000905 21$: CMP RG.AS : VALUE, * 7637 
14776 076704 7 BNE 288 
14777 0767 67 140420 JSR PC, ISOLATE : 7705 
14778 7671 i? 000001 103340 BIT a1 gERROUT : 7707 
167 fs 705 135462 MOV aL .REG*42 RS | 
14782 OF 5205 ASR RS | 
14 767 05 ASR RS | 
1467 8 5205 ASR R5 | 
14785 0767 6205 ASR R5 : 
14 767% 5205 ASR R5 | 
14 rer 3 177700 BIC #177700 R5 | 
se Sarat arts uae el 
14 767 : MOV SP-RO : SP,* 
14 767 TRAP s-_‘'14 | 
14 rer 0 135416 000052 228: MOV ant REG*G4 52(SP) ; *,OLDSEC 7710 | 
14 rere 135406 "(MOV SMU REGS42 Re : 7711 
14 ASR R5 | 
77 ASR RS 
77 ASR RS 
7701 ASR R5 
1 ASR R5 
PBs $88 77 St Fierro 
$ 0000e5 MOV R5,42(SP) | : *, OLDCHN 
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eh ee ed eed ed ed ed 
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SERS 
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NO 
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aot we 
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™N~ 
x SN 
MMI 


nom 
=A) 
BRNO 
SSSSSS55 


ORO 
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SR 


~ 





000001 
046000 
133622 
167130 
000005 
135320 


135308 


177700 


000001 


135162 
140236 


000001 


000052 


103120 


193064 


103042 
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OUNTS 
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@ML .REG+44 ,52(SP) 
24$ 


42(SP) ,RO 
age neGtse RS 


R 
#177700.R5 
R5.RO 

a ERROUT 
23$ 

56 

12275 

MSG4 


0 
R3,-(SP) 
o> (SP) 
PC UP. HARD. COUNT 
#1 ERROUT 
6$ 


7 
12276 
MSGS 


#20,SP 


LUN, * 
WRDCNT,* 
SECTOR,* 


* ,OLDSEC 


; OLDCHN,* 


LUN, * 


LUN,* 


a ee 


LLL ee ey a 


SEQ 0321 


TOPS 
PA:< 


7713 


7716 — 


r 


ao 









ZMLBBO PERF CE E 
AND3 TESTING RANDOM 

14861 

1686¢ 

1 7725 5266 00001 
is Brae, Soeee Re 
1enee 07727 1¢9 176376 
14 O77 7 $ 5 

12890 773s ae 
14871 1¢ 1 000430 
1687 77314 «(01 300 

14 16 

14874 077 034500 
14875 § 16005 034460 
1 a6 773: 

ire Brrtte SI97eS ooo 
14879 77 : 546 022670 
14881 50 004767 146236 
1488 54 +44 000010 
148E 4 a 000005 
14885 077366 137740 
14886 077 000001 
1488 77400 

14888 0774 135002 
14889 0774 

14890 0774 

1485 1 

1485 4 

: RC 

3S 177700 
1485 0 
1490 

149C 

149¢ 

149C 134726 
149¢ 

14905 

14906 

149 

14908 

149C 

1491 177700 
1491 16 
1491 1 
1491 4 
1491 

1491 000400 


000020 


102754 


000010 


102660 


000026 


sMLX4 


33$: 


34$: 
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12(SP). 
12(SP) ,20(SP) 
30$ 


Seen 
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4$ 
(SP) +, (SP)+ 
N$21 


#1,EF 
32$ 
42$ 
R3,RO 
RO 


—_— ee ee Eten -_— - 


TOP. SECT(RO),10(SP) 
pee ere tO) RD : 


R3,-(SP) 
#400,=(SP) 
FF ,-(SP) 


R5,-(SP 
PC READ 
¥ 6. sP 


RO2A 
§ 


@ML .REG+42 ,RO 
RO 


RO 
RO 
RO 
RO 


) 


40 
PC, ISOLATE 
#1 ,ERROUT 


RO 
ne RO 


RO,-(SP 
#FAT10B,-(SP) 
2,-(SP) 


14 


aml 


#6.SP 
@ML .REG+44 , 26(SP) 
-REG+42,R0 


R 
#177700,R0 


RO, 16(SP) 


#1,-(SP 
24 (SP) 
R3,-(SP 


) 
=(SP) 
) 


#400,-(SP) 


3 KOUNT 
; KOUNT, TIMES 


LUN,* 


*, SECTOR 
LUN, * 


; SECTOR,* 


SP,* 


; *,O0LDSEC 


* ,OLDCHN 


COMMAND , * 
LUN,* 


le la 19:24:42 
7=Mar-1982 19:23:44 


SEQ 0322 


7780 
7781 





LE SN ee. a 
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BANDS TEST tue RANDOM SECTORS DATA, WORD COUNTS 
-MLX4 37-Mar-1 19: 
12918 : TESTING RANDOM SECTORS, DATA, WORD COUNTS 7-Mar-1982 19: 
12926 30(SP) ,-(SP) : PTR,* 
ast O77ERS fieete. gueas my BBS 8 : OU. 
12958 O77erG 5 6 14 ADD #14,SP 
14924 077364 96 5 CMP R #5 
129 2 pee Wee 134634 000026 CMP AML .REG+44,26(SP) : *, OLDSEC 
149 ; O77 fae & 16 AOY 12csP).~¢sp) : OLDCHN,* 
149 $7726 19968 oeeeie mov al .REG+42 ,RO 7 
10 1 pate $0 ASR RO 
125s Seas $88 8 ) 
ise Be Sees iS 8 
129 3 peur 042700 177700 BIC #177700,R0 
149 O7761¢ 026 26 CMP RO, (SP)+ 
1498 ; 077616 ss 000001 102434 BIT : 
14941 a 104456 TRAP : 
776 12300 . WORD 
12908 He 2 b17305 - WORD , 
12948 bee: Srosee 35$: MoV R3,-(SP) : LUN,* 
1494 Dyna 0167 476 MOV »=(SP) 
§ JSR PC,.UP.HARD. COUNT 
14967 77644 Js C 
14949 102400 36$: BIT #1 ZERROUT : 
eoey TRAP 57 ; 
1498 «WORD 12301 
1495 12 
1495 . WORD 
14954 . WORD i. . 
14956 102356 37$: BIT #1 ,ERROUT : \ 
1438 +e 7 : . 
-WORD 12302 
14938 “WORD ees 
12 WORD 
38S: MOV R3,-(SP) : LUN,* 
i Mion Mov BOARD ,-(SP) 
14 JSR PC UP. SOFT. COUNT 
14 208: ONC (sP careschied : SECTOR 
14 41$: CMP hl : SECTOR,* 
14368 1 
JMP 33$ 
12990 ae 4 203 sald 428: INC R3 ; LUN : 
14971 077746: 020 000012 43$: -CMP R3,12(SP ; : 
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CTORS, DATA, WORD COUNT 


175540 
000050 000059 


175504 
000032 


sMLX4 $o—fer=? 
: TESTING RANDOM SECTORS. DATA, WORD COUNTS 7-Mar-19 
BGE 44$ 
JMP 2$ 
44$: INC 30(SP) 3; COUNT 
CMP 30(SP) ,50(SP) * COUNT REPEAT 
BGT 45$ 
JMP 1$ 
45$: ADD #32.,SP 5 
RTS PC 


s Routine Size: 625 words. 
+ Maximum stack depth per invocation: 38 words 


SEG 0324 
19:33:68 TOPS 
19:23:44 PA:< 
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eee ee 
333 


w 
a 
* Ge 


ee 
Wie Wwit 


i ee ee ee ee oY 
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eed ed nd 
ed eed eed eed eed eed eed eed eed 
DONO US Wha 


ViVi 
NOUS wtp 
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ML Xé 27-Mar-1982 19:24:42 — TOPS-20 Bliss-16 v2(212) 
; TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT ¢7-Mar-1982 19:23:44  PA:<NEALEDMLX4.BLI~5° (4?) 


7851 Zsbttl “TESTING RANDOM UNITS, SECTORS. DATA, WORD COUNTS‘ 
7852 routine RAND4 (REPEAT) : novalue = 










785 begin '* 1 * START OF ROUTINE 
7854 
7855 !44 
oe? ROUT INE: RAND4 (REPEAT) 
re38 PURPOSE : TO CHECK RANDOM UNITS : 
7860 ARGUMENT : REPEAT = NUMBER OF TIMES TO EXECUTE ENTIRE ROUTINE 
ree THE CODE FOR *RAND4* IN BRIEF: 
7864 ! BEGIN 1 (START OF ROUTINE) 
7865 |! SAY ROUTINE IS RUNNING 
7 ! INCR COUNT FROM 1 TO REPEAT 
7867 ! =: BEGIN 2 (START OF REPEAT LOOP FOR THIS ROUTINE) 
7 ! : GENERATE THE RANDOM PATTERN 
7869 ! : TIMES = NUMBER OF UNITS * 4 
7870 =|! INCR KOUNT FROM 1 TO TIMES 
7871 +! : : BEGIN 3 (START OF COUNTING LOOP FOR UNIT SELECTION) 
7 6 os ae SE A ICAL UNIT WHICH IS ACTIVE 
4 ! : : INITIALIZE BUFFER POINTERS 
7874 |! : : TESTLOOP: 
7875 ! : : : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT) 
7876 ! : : : INCR KOUNT2 FROM 1 TO 10 
7877 «=! : : : : BEGIN 5 (START OF COUNTING LOOP FOR SECTOR SELECTION) 
7878 |! :: : : CHOOSE A 
7879 ! : : : : SET UP BUFFER POINTERS BEFORE TRANSFER 
7880 |! : : : : CHOOSE A RANDOM 
7881 ! : : : : CALCULATE WHERE TRANSFER WILL END (BASED ON WORD COUNT) 
reas : ¢ 2 3 : IF CALCULATED VALUE GTR HIGHEST 
788 ! : : : : : THEN ADJUST THE COUNT SO IT FITS 
raee 2 #2 Salve WITHIN THE TESTABLE SECTOR LIMITS 
7886 =O! : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
788 : 3 3 3 : CHOOSE WHETHER TO WRITE CHECK GR READ 
7§ ! 3 : : : DO THE WRITE CHECK OR READ 
7é ! : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP) 
78S ee ee BUFFER POINTERS AFTER TRANSFE 
7é : : : : : END 5 (END OF COUNTING LOOP FOR SECTOR SELECTION) 
785 ! 3: : : END 4 (END OF TESTLOOP) 
7§ : : : END 3 (END OF COUNTING LOOP FOR UNIT SELECTION) 
a. : END 2 (END OF REPEAT LOOP FOR THIS ROUTINE 
oae END 1 (END OF ROUTINE) 
785 
785 local 
WRDCNT, 


SECTOR, 


LO LOE A A tt a ag _—.<»-. 


eee 


ST sme" 


CZML 
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1283] 3 
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ed 8 ed ed 2 eed ed eed 
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ek ee ed ee OD eed eld eed nd eed ed ed ee eed eed 
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WVViw 
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ww 
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VViw YMA oS 
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TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 


VALUE, 

OLDSEC, 

OLDCHN, 

PTR. 

DBL_ VALUE: 
Label 

L 


PRINTB (SAY1, RINSD); 
! *RANDG* 


incr COUNT from 1 to .REPEAT do 
begin 
GENS (); 


wer Soe from 1 to (.NUM_DRIVES*4) do 


ea n 
LUN = RNDU (): 
LSLUN = .LUN;: 
WPTR = WBUFF; 
RPTR = RBUFF: 


LOOP : 


begin 
incr KOUNT2 from 1 to 10 do 
begin 


WRDCNT = RNDWC (): 
SET_PTRS (.WRDCNT): 
SECTOR = RNDSEC (.LUN): 


Seen re 


TOPS-20 Bliss-16 Vv2(212) 


27-Mar-1982 1 
PA: <NEALE>MLX4.8L1.5 (47) 


7 G 9:36:42 
27-Mar-1982 19:23:44 


'x 2 & 


START OF REPEAT LOOP FOR THIS ROUTINE 


* 3 * START OF COUNTING LOOP FOR UNIT SELECTION 


i'n & & 


START OF LOOP THAT COMPLETELY TESTS 1 UNIT 


‘x 5 & 


‘EXPECT VALUE BETWEEN 71 AND BUFSIZ 
‘EXPECT VALUE BETWEEN LOWEST AND HIGHEST 


if (.SECTOR + .WRDCNT/256) gtra HIGHEST then WRDCNT = 256*(HIGHEST = .SECTOR + 1); 
VALUE = write (.LUN, .WRDCNT, .WPTR, - SECTOR): 


'4 
SEE HOW SUCCESSFUL THE WRITE 
selectone .VALUE of 

set 

AP ae 
begin 
if RETRY (SIX, write, . 
then 


n 
WHY DROPT C[.LUN] = 
ERRDF (5401, MSG1, 
DODU (.LUN); 


WAS: 


:SEE "SYSERR" FOR DEFINITION 
-OF ERROR # CONTAINED IN ‘VALUE’ 
:* SA * RETRY ALLOWED 


LUN, .WRDCNT, .WPTR, .SECTOR) ne 
‘THE RETRY FAILED == SYSTEM FAT 


et 


A ERROR 


:*ee% OPTION 5, RAND4 ERROR 01 *e«2 


START OF COUNTING LOOP FOR SECTOR SELECTION 


SEQ 0326 
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TE COUNTS 


STING RANDOM SECTORS, DATA, WORD SEQ 0327 


51 sMLXG 7-Mar-1982 19:24:42 TOPS-20 Bliss=-16 V2(212) 
$197 $ TESTING RANDOM (WITS, SEZTORS, DATA, WORD COUNT Somer 1388 19:38:44 PA:<NEALE>MLX4.8L1.5 (47) 
109 ; 7955 leave LOOP; ! JUMP JUST BEYOND END OF BLOCK « & « 
aM: 5989 _— 
3118 : 7958 end: 's SA * 
5113 ; 7959 
5114 ;: 7960 [2] : 
5115 ; 7961 n '* 5B * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
12116 : 796 WHY DROPT [.LUN] = CODE_5; 
5117 ; 796 ERRDF (5402, MSG1, 0); !seee OPTION 5, RAND4 ERROR 02 xee8 
5118 ; 7964 DODU (.LUN): 
5119 ; 7965 leave LOOP; : JUMP JUST BEYOND END OF BLOCK « 4 « 
3 : : as end; 's 5B * 
51 4 : 7968 [3] : 
51 : 7969 poate '« SC * FATAL DRIVE ERROR -- NO RETRY ALLOWED 
5124; 7970 ERRDF (5403, MSG1, 0): !«e«« OPTION 5, RAND4 ERROR 03 «eee 
125 ; 7971 WHY_DROPT C.LUN] = CODE _6; 
1 : : 797 DODD (.LUN): 
1 $ 797 leave LOOP; ! JUMP JUST BEYOND END OF BLOCK *« 4 « 
128 ;: 79764 ; 's 5C 
1 : 7975 tes; 
1 ; 7976 
131; 7977 COMMAND = CHOOSE (); 
1 Z 7978 
1353; 7979 if .COMMAND eql read 
134 ; 7980 then | 
135 ; asd gin 
1 3 79 ¢ PTR = .RPTR; 
1 2 798 VALUE = read (.LUN, .WRDCNT, -RPTR, .SECTOR);: 
138 ; 7984 end 
139 ; 7985 else 
140 ; 79 begin : 
141 ; 798 PTR = .WPTR; 
14¢ s a VALUE = CHECK (.LUN, .WRDCNT, -WPTR, .SECTOR); 
3 : ast end; 
148 : 7991 1+ 
2 ; a SEE HOW SUCCESSFUL THE OPERATION WAS: 
148 : 799% > 
129 : 7995 selectone .VALUE of ‘SEE ‘SYSERR' FOR DEFINITION 
139 : oe set 'OF ERROR # CONTAINED IN ‘VALUE" 
152 : 7998 (0) : 
138 : 5000 if .COMMAND eal read 
: ‘ eql rea 
155 ; 001 then ’ 
136 5 ans begin 
158 ; 5004 if (DBL_VALUE = DOUBLE_CHECK (.WPTR, .RPTR, .WRDCNT)) neq 0 
159 ; eens then — 
160 ; 006 begin 


ellie SE een 


LOO 


Ce er eee RR RE ER A sen 









tee 


| F 10 
CZALBBO PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 309 
RAND3 TESTING RANDOM SECTORS, DATA, WORD COUNTS SEQ 0328 
15162 ZMLX4 27-Mar-1982 19:24:42  TOPS=20 Bliss-16 v2(212) 
13168 : TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 27-Mar-1982 19:23:44  PA:<NEALEDMLX4.BLI-§ (47) 
15165 ; 8007 SAYWHO (.LUN): 
13166 : 8008 PRINTB (SAY1, MSG5): 
15167 : 8009 !"ECC LOGIC FAILED TO DETECT DATA ERROR’ 
15168 : 8010 PRINTB (FMT12A, ..DBL_VALUE, .DBL_ VALUE): 
aie: BH parva tes ati A Loan eT 
15171 : 5018 PRINTS (FMT12B, >.DBL_VALUE, .DBL VALUE): 
15172 : 8014 !"BAD DATA: PPPPPP AT LOCATION GUGQGQ' 
13498 : 8075 WHY DROPT [.LUN] = CODE 8; 
1317% : 8016 ERRDF (5404. MSG1, 0); “!**e* OPTION 5, RAND4 ERROR 04 eee 
13176 : 8018 leave LOOP;” JUMP JUST BEYOND END OF BLOCK * % « 
P end; ‘ 
15178 : 8020 
15179 ; 8021 end; 
15180 ; 80 $ 
15181 : 80 [1] : 
12186 : oe : begin 'x 5D * RETRY ALLOWED 
1e182 : 5 6 if RETRY (SIX, .COMMAND, .LUN, .WRDCNT, .PTR, .SECTOR) neq 0 
13188 80 7 then . 'THE RETRY FAILED -- SYSTEM FATAL ERROR 
15187 : 80 3 WHY. DROPT C.LUN] = CODE_4; 
131 ; 803¢ ERRDF (5405, MSG1, 0); !aee* OPTION 5, RAND4 ERROR 05 see 
13190 : 803 leave LOOP; * 'JUMP JUST BEYOND END OF BLOCK * 4 « 
13198 : 8034 ? 
15193 : 8035 end: 'e 5D * 
15194 ; rite: 
15195 : 80 [2] : 
15196 ; 8038 begin os i di peu i* SE * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED 
13198 : 8040 ERRDF (5406. MSG1, 0); “!%eex OPTION 5, RAND4 ERROR 06 exes 
13 : 8042 leave LOOP; ” {Jump JUST BEYOND END OF BLOCK * 4 + 
Ps end; 
1 3 8044 
12 § : 8045 [3]: 
15204 : 046 begir !s 5F * FATAL DRIVE ERROR -- NO RETRY ALLOWED 
13 5 ; opee Pg OS ne elie iser* OPTION 5, RAND4 ERROR 07 «ane 
1 : 9 DODD (.LUN): wis 
15208 : 050 leave LOOP: ' JUMP JUST BEYOND END OF BLOCK * 4 « 
13 ° 3] end; 'x SF « 
13 : 33 (4): _ 
13 : 34 begin " 's 5G * UNRECOVERABLE DATA ERROR 
13 : 36 ERRDF_ (5408, msG2. >: jaan OPTION 5, RAND4 ERROR 08 sex 
13 : 58 DODD (.LUN): 7 ai 


‘Sen LL eeeesssssseesstessssenssesnsnstheseseunessnsnsmnememeeeeesen- 
Lee eee eeieneeetneeeeenenssestteenemnnememeeees ern _ “ 
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RANDS TESTING RANDOM SECTORS, DATA, WORD COUNTS SEQ 6329 










. 7-Mar-1982 19:24:42 TOPS-20 Bliss-16 Vv2(212) 
13 8 ‘too TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT i ala 5 19:38:46 PA:<NEALE>MLX4.8L1.5 (47) 
1§221 ;: 59 leave LOOP: 1 JUMP JUST BEYOND END OF BLOCK * & « 
15 $ : end; 's 5G * 
13557: 5082 (5) : 
15225 : § begin 's SH * RECOVERABLE DATA ERROR 
1 $ : Boe ISOLATE QO: 
13 : 8066 if .ERROUT then PRINTB (FMT10B, .CHAN): 
15230 : 5088 * ~—« BIT aa" 
15231 : 8069 OLDSEC = .MLEL: 
13 ; : 20 OLDCHN = .CHAN: 
13 G 607 if RETRY (ONE, .COMMAND, .LUN, .WRDCNT, .PTR, .SECTOR) eql 5 

: en 

: 74 
13 3 6075 s ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 

: en 
1350 3098 — 
13 41 : 8079 if .ERROUT then ERRHRD (5409, MSG4, 0); !**** OPTION 5, RANDS ERROR 09 eee« 
15 rk : 8081 UP_HARD_COUNT (.LUN, .BOARD): 
15244 ; 4 end 
13 6 ; 5084 we 

: 5 
13 és : s086 if .ERROUT then ERRSOFT (5410, MSG3, 0): 
15250 : !eaee OPTION 5, RAND4 ERROR 10 eee 
12 51; al eel (.LUN, .BOARD): 

Ps en 
13 3 3 
15254 ; else 
13 5; begin 
1 57: if .ERROUT then ERRSOFT (5411, MSG3, 0); = !*#=* OPTION 5S, RANDS ERROR 11 sees | 
15 28 : UP _SOFT_COUNT (.LUN, .BOARD): 

8 > a m4 
ie : end; 's SH * 
12 b3 tes; 
55 : WPTR = .WPTR + 2: 

13366 ; end; :* 5 * END OF COUNTING LOOP FOR SECTOR SELECTION 
1 ¢: : '¢ 
; 59 ; . Test to see if this wut's address space is 
15270 ; : to be read for soft errors. This test is 
3 at : 1S intended for DMT purposes. 





LT re LL 
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RAND3 TE 


STING RANDOM SECTORS, DATA, WORD COUNTS SEQ 0330 

43 74 sMLX4 ie lk 19:26:42 TOPS-20 Bliss-16 Vv2(212) 
12 Le $ TESTING RANDOM UNITS, SECTORS. DATA, WORD COUNT 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.8L1.5 (47) 
15277 ; 111 
15278 ; Bii2 if .EFNS$21 ‘Is the background pattern to be read 
12 Ha ad 

30 ; in 
15281 ; aie 
15282 ; a11¢ ‘ 2 
iF BS: 4 version czmlbb changed incr to incru 
13 BS : 119 ) incru SECTOR from LOWEST to HIGHEST do 
15 37 : 13 if read (.LUN, 256, RBUFF, .SECTOR) eql 5 
15288 ; 1 . then 
15289 ; a rege oes. 
LF 4! $ 4 : ISOLATE (); ‘Find the failing bank and board no. 
13698 8126 if .ERROUT then PRINTB (FMT10B, .CHAN); 
LF +! : 4 Print where the error is 
15 38 : H+ i Save the contents of the ML error location 
15297 ; 8131 - register so we can compare it to the new 
15298 ; 81 . : contents of this register after the retry. 
13 9: ty, This is done to classify the error. 
15301 ; 8135 OLDSEC = .MLEL; 
13 1 : nies OLDCHN = .CHAN: 
153¢ : sie i Do a classify retry call. If the same error 
15305 : $139 : occures then classify it as a hard error. If 
1§ 106 ; 8140 : a different error occured or the error went away 
15 07 ; 141 : then classify it as a soft error. 
15308 ; 126 : 
15309 ; 14 
15310 ; 144 if RETRY (ONE, .COMMAND, .LUN, 256, -PTR, .OLDSEC) eql 5 
18312: 148 a 
15 18 : 129 i The same error occured so see if it is at the same 
15314 ; 148 ‘ sector and c number, if so then classify 
LF 15 ; aiep ' it as a hard error else classiy 1t as a soft 
1 16 : 150 ! error. 
aig: Re : 
R 18 : 138 7 ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN)) 

y 3 en 
13381 : 135 begin ‘Same error occured ‘hard’ 
13338 : 137 sf ~ERROUT ‘Print error if enabled 

3 en 

15325 ; 138 begin 
15326 : P 8160 ERRHRD (5412, ‘Error number 
15327 ; P 8161 MSG4, ‘Error message 
15328 : 162 0); ‘Additional message routine 


Se see ce 


—_ - —— ene -_— AS” Se-seeeenstete: 
—_——— —— —- = ——— 
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RANDS TESTING RANDOM SEC’ORS, DATA, WORD SEQ 0331 
15 SPLXG $f —fer~198¢ 13°$$:6¢ TOPS=20 Bliss-16 v2(212) 
iF 1: TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 27-Mar-1982 19:23:44 PA:<NEALE>MLX4.8L1.5 (67) 
12 : $165 end; 

15335 : Hare: UP_HARD_COUNT (.LUN, -BOARD);: 

15 : 3166 end 

15 5 16 else 

2 : aie8 begin ‘Not the same error ‘soft’ 

15340 : $170 if .ERROUT !Print error if enabled 

15341 ; 171 then 

13 4 : 176 peain 

1 : P 817 ERRSOFT (5413, ‘Error number 

15 ; P 8174 MSGS, ‘Error message 

15345 ; 8175 0); ‘Additional message routine 

nee: “a 

15348 : 8178 UP_SOFT_COUNT (.LUN, .BOARD): 

18380 ; $180 - 

15 ; 3183 | ee ‘Not the same error ‘soft’ 

ie 2¢ : aice begin 

15355 ; 818 

15354 ; 8184 if .ERROUT ‘Print error if enabled 

15355 ; 318° then 

15 38 : 186 begin 

15357 ;: P 8187 ERRSOFT (5414, ‘Error number 

1§ 8 : P sie MSG3, ‘Error message ; 

15359 ; 189 : ‘Additional message routine 

3 : 5 aioe end; 

15 : B192 UP_SOFT_COUNT (.LUN, .BOARD): 

1302 ; aii end: 

15 5: 8195 end; 

2 : B19? end; 
15 : B190 end; 's 4 * END OF LOOP THAT COMPLETELY TESTS 1 UNIT 
LF o4 3 8 0 end; 'x 3 * END OF COUNTING LOOP FOR UNIT SELECTION 
1 Ks : Og end; !'x 2 * END OF REPEAT LOOP FOR THIS ROUTINE 
1 74 : Soe return; 

13 ee] 3 8205 end; 's 1 * END OF ROUTINE 

15 » ~SBTTL RAND4 TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 

15 100006 004167 105322 RAND4: JSR R1,$SAVE5 ; 7852 


An a e-em — 


LE Ee 
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WORD COUNT 
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RAND4 TESTING RANDOM UNITS, SECTORS, DATA, SEQ 0332 
15 ZMLX4 27-Mar-1982 19:24:42 TOPS 
13 : TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 27-Mar-1982 19:23:44  PAz< 
15389 100012 162706 6 #26,SP 
15390 1 1g of 746 G07? PRTNED.~(SP) : 7913 
15391 1 12746 00707 #SAY1,-(SP) 

15 32 1 $ 012746 00000 #2,-(5P) 

13 93 1 01 SP.RO : SP, 

15394 1000 104414 

15395 1 005 909032 32(SP) : COUNT 7916 

15396 10004 167 002176 41$ 

15397 1 767 141546 1$: PC,.GENS : 7918 

15398 100052 016766 134400 000016 NUM. DRIVES, 16(SP) : 7920 

15399 1 006 000016 16(SP) 

1 1 900016 16(SP) 

1 1 066 14 14(SP) : KOUNT 

13408 100074 8$ 

15403 10007 767 170234 2$: PC ,RNDU ; 7922 

15404 1 1 ; RO.R > *,LUN | 

15405 1 1 1017 R2 3 LUN,* 7923 

1 100110 012767 012670 132552 #UBUF F : 7924 

15407 100116 012767 022670 132546 #RBUF : 7925 

13408 18 1 266 12 Re (SP : LUN,* 7935 

1210 W818 GIES 0815 anon i 

13412 100180 07 0000s ni KOUNT2 7929 
Ps *, 

13a1% 4 1 tae 3$: PC : 595) 

15414 1001 RO : *, WRDCNT 

15415 1001 : WRDCNT,* 7932 

13616 1 166 146740 PC 

15417 1001 R2 : LUN,* 7933 

13418 174 170040 PC 

15419 1002 Sood ; *,SECTOR 

1 106 R3.=(SP) : WRDCNT,* 7935 

1 106 0004 #460,-(SP) 

1 106 104754 PC .BLSDIV 

1 106 (SP)+, (SP)+ 

: 10¢ 000012 *a12(SP) . ee 

15426 100z 

136 10022¢ 069012 a12(SP) RO 

10¢ R1,R0 : SECTOR,* 

13¢' 10¢ RO 

| 1 RO.R3 ; *, WRDCNT | 

1 1 000400 #400.R3 : * WRDCNT | 

1 10024¢ 4$: Re. (SP) ; LUN,* 7937 

15434 10025 -(SP) ; WRDCNT,* 

1 10% 132412 WPTR,-(SP) 

1 100¢ R1,~(SP) ; SECTOR,* 

1 106 145140 PC WRIT 

13230 1 000001 Beat inure 7943 

15440 1002 5$ 


ie i ee en 





Se a = 
——_— a a 


i 


K 1 
CZMLBBO PERFORMANCE EXERCISER MACRO M1113 oe te 13:41 PAGE 314 








































RANDG TESTING RANDOM UNITS, SECTORS, DATA, WORD COUN SEQ 0333 
1544 SMLX4 37-Ma -1982 19:24:42 TOPS 
13448 : TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 27-Mar-1982 19:23:44  PA=< 
15445 100274 012746 MOV #6,~-(SP) : 7949 
154 100 018746 beseee MOV #WRITE ,~(SP) 

1544 100 010246 MOV R2,~(SP) ; LUN,* 

15448 1 910 v MOV R3,-(SP) ; WRDCNT,* 

15449 10031 16 46 132354 MOV WPTR,=(SP) 

15450 100314 01 146 MOV R1,-(SP) ; SECTOR,* 

15451 100 1g 004767 145702 JSR PC RETRY 

15452 1 706 000014 ADD #14,SP 

15453 1 700 TST RO | 

15454 1 1446 BEQ 9$ | 

15455 100 : 112762 000004 034446 MOVB #4,WHY.DROPT(R2) : *,*(LUN) 7952 | 

13456 100 10445 TRAP = 55 : 7953 | 

15457 1 $e 912431 »WORD 12431 | 

15458 100344 011070 -WORD MSGI | 

15459 1 -WORD 0 | 

15460 100350 010200 MOV R2,RO ; LUN,* 7954 | 

15461 100352 104451 TRAP =‘ 51 | 

13462 | 54 31 BR 7$ : 7955 | 

13468 100 56 020427 000002 5$: chp R42 ; VALUE,* 7945 | 

15465 100 4 112763 000005 034446 MOVB = #5, WHY .DROPT(R2) 3 *,*(LUN) 7962 

1869 100 74 012432 12432 | 

1 1 76 011070 MSGI | 

13469 100400 000000 0 | 

15470 100402 010200 R2,RO ; LUN,* 7964 

18692 | 000274 2, 7965 

1393 | 10 020427 000003 6S: R443 ; VALUE,* 7943 | 

15474 100414 001014 9$ | 

15475 10041 104455 55 : 7970 | 

13476 1 01243 12433 | 

154 100 MSG1 

13478 100424 : 

15479 106 000006 034446 #6, WHY .DROPT (R2) 3; *,*(LUN) 7971 

10¢ R2,R0 > LUN,*® 7972 
: 

1 10¢ 000010 7$: ADD = #10, SP : 7973 | 

1 100444 8$: BR 14$ 

1 10044¢ 145514 9$: JSR PC, CHOOSE ; 7977 

15485 10¢ 000040 MOV RO.40(SP) > *, COMMAND 

1 1004 5¢ CLR : 7979 

; 1004¢ 045612 CMP RO, AREAD ; COMMAND, * 

138 193e iat 

15490 106 132176 000036 MOV RPTR, 36(SP) : *,PTR 7982 

15491 10¢ MOV Re.~ (SP) ; LUN,* 798 

13498 10¢ MOV R3,-(SP) ; WRDCNT,* 

15493 106 132164 MOV —s_ RPTR, =(SP) 

15494 106 MOV R1,-(SP) ; SECTOR,* 

15495 10051 145076 JSR PC REA 

15496 100514 BR 11$ 


; 


ee nen 





——_— — 
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I WORD COUNT 
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RAND4 TESTING RANDOM UNITS, SECTORS, DATA. SEQ 0334 
154 ZMLX4 37-Mar-1982 19:24:42 TOPS 
13499 : TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 27-Mar-1982 19:23:44  Ppa-c 
15501 100516 016766 132146 000036 10S: mov WPTR,36(SP) : *.PTR 7987 
12206 100524 010246 MOV et + LUN.* 7988 
15503 100526 010 MOV R3,-(SP) : WROCNT,*« 

15504 100530 016746 132134 MOV WPTR,-(SP) 

15505 1005 010146 MOV 1,-(S : SECTOR,* 

13506 1 536 0046767 145236 JSR PC, CHECK 

15507 100542 010004 11$: MOV RO.RG : *, VALUE 

15508 100544 001076 BNE 4 : 7995 

15509 10054 5 OR : 8000 

15510 100550 1 BLO 13$ 

15511 10055 167 000750 12$:  JMP $ 

13512 556 016746 132106 13$: MOV WPTR,-(SP) : 8004 

15513 100 016746 132104 MOV RPTR,=-(SP) 

15514 100566 010346 MOV R3,-(SP) : WRDCNT,* 

15515 100570 004767 143532 JSR PC ,DOUBLE . CHECK 

13516 100574 706 000006 ADD #6,SP 

1551 190406 1 000042 MOV RO,42(SP) ; *,DBL.VALUE 

138 1B3eRs Btade mY AStccsp oe 307 

15520 10061 bos 67 134710 JSR PC, SAYWHO 

15521 100614 012716 011216 #MSGS, ( : 8008 

155 2 100620 012746 007072 MOV #SAY1,-(SP) 

15523 100624 012746 000002 MOV #2,-(SP 

15524 100630 01 MOV SP,RO : SP,* 

138 3 100834 ore 000050 mov. $0(SP) (SP) DBL . VALUE 8010 
e ° o* 

155 § 100640 bi 9eae 000050 MOV a50(SP) 27 (SP) : DBL.VALUE,* 

15528 100644 012746 006710 MOV #FMT12A,~(SP) 

15529 100650 012746 000003 MOV #3,-(SP) 

15530 100654 010600 MOV RO : SP, 

15531 1 104414 TRAP ; 

15532 10 062766 010000 000056 ADD #10000, 56(SP) : *,DBL.VALUE 8012. 

15533 1 016616 000056 MOV 56 (SP). (SP) : DBL. VALUE, * 8013. 

135 1 017646 000056 MOV @56(SP) ,~(SP) : DBL.VALUE.* 

15535 1 012746 006756 MOV MT12B,-(SP) 

15536 1 912746 000005 MOV 3,~(SP) 

15537 1 10500 MOV RO : SP,* 

15538 17 104414 TRAP 

15539 7 112762 000010 034446 MOVB #10,WHY.DROPT(R2) 3: *,* (LUN) 8015 

15540 1 1044 TRAP : 8016 

15541 7 12434 WORD 12434 

13542 10¢ 11070 - WORD MSGI 

15544 10( 010200 MOV R2,RO : LUN,* 8017 

15545 1 104451 TRAP = 5 

13546 1 7 706 000042 ADD #42,SP : 8018 

15547 100740 5 14$: BR 20$ 

13548 1 (42 Oe 000001 15$: cep Ra ga : VALUE,* 7995 

15550 1 re6 328 000006 MOV #6,-(SP) : 8026 

15551 100754 6 009052 MOV 52(SP) ,-(SP) : COMMAND, « 

15552 100760 010246 MOV R2,-(SP) : LUN,* 


LE Eee 
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RAND4 TESTING RANDOM UNITS, SECTORS, DATA, WORD COUN SEQ 0335 
15554 sMLX4 7-Mar-1982 19:24:42 TOPS 
13399 ; TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT a la 19:23:44 PA:< 
15557 100762 010346 MOV R3,-(SP) ; WRDCNT,* 

15558 100764 16646 000056 MOV 56(SP) ,-(SP) + PTR,* 

15559 1007 0 0101 MOV R1,=(SP) : SECTOR,* 

15560 100772 004767 145226 JSR PC-RETRY 

15561 100776 706 000014 ADD #14,SP 

13858 (Sione Shia see, 8s 

15564 101006 112 000004 034446 MOVB #4,WHY.DROPT(R2) : %,* (LUN) 029 
15565 191014 10448 TRAP =‘ 555 : 5030 
15566 10101 012435 -WORD 12435 

15567 101020 011070 -WORD MSGI 

15568 101022 000000 .WORD 0 

15569 101024 010200 MOV R2.RO ; LUN,* 8031 
15570 1010 104451 TRAP ss «51 

15571 101 50 BR 19$ : 8032 
1357 101032 020427 000002 16$: CMP R4,#2 > VALUE, * 7995 
15573 1010 1018 BNE 178 | 
15574 101040 11276 000005 034446 MOVB #5,WHY.DROPT(R2) : *,*(LUN) 8039 
15575 101046 104455 TRAP : 8040 | 
13576 101050 012436 -WORD 12436 | 
15577 101052 011070 -WORD MSGI | 
15578 101054 000000 .WORD 0 | 
15579 101056 010200 MOV R2.RO : LUN,* 8041 | 
15580 101060 104451 TRAP =‘ 51 | 
15581 101062 000433 BR 19$ : 8042 
15582 101 020427 000003 17$: CMP R4H3 : VALUE,* 7995 
15583 101 9 001012 BNE 18$ 

15584 101072 104455 TRAP 55 : 8047 | 
15585 101074 012437 WORD 12637 

15586 101076 011070 -WORD MSG 

15587 1011 WORD 

15588 1011 Me 62 000006 034446 MOVB #6,WHY.DROPT(R2) 2 *,*(LUN) 8048 
15589 101110 010200 MOV : : LUN,* 8049 
15590 101112 104451 TRAP 

15591 101114 16 BR 19$ : 8050 
13588 1116 0427 000004 18$: CMP R44 : VALUE, * 7995 
15594 101124 767 136202 JSR PC. ISOLATE ; 8055 
15595 101130 104455 TRAPS 8056 | 
15 36 1011 12640 -WORD 12440 

13297 101134 0111 “WORD MSG2 | 
13898 10114 2762 000007 034446 MOVB #7,WHY.DROPT(R2) : *,4@(LUN) 8057 
ir TEHSS ee fem a ond 
1 10115 706 000020 19$: ADD #20,SP : 8059 | 
1 1011 1 1042 20$:  JMP 4 

3 HI 04 ¢ b00068 21$: cmp RG 65 : VALUE, * 7995 
j 1017 767 136136 JSR PC, ISOLATE ; 8064 
1 101174 767 000001 101056 BIT #1, ERROUT : 8066 
13003 101202 001423 BEQ 22$ | 


: 


: 


nO 


ek ced ed eld eed eed 


owed ed ced 
ViFWNR=o 


le ea ce eh etd ee 
RRNA AAR 
ad od ed 
NOUSUIN =O COON 


oad wd ed wd ed 
RRO 


nO 


ed cee ceed ed eed ered eed eed eed 
w 
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05 
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& 
ao 


33 
= 
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wir 
ans 
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SSaas 





ORMANCE EXERCISER 


133200 


AA 
000001 
000052 
000056 
144666 

14 


133036 


000040 
133020 


177700 


000001 
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000044 22$: 


000044 


100636 
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7-Ma 
TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT Sooma 


oo -REG+42,,R5 


R 
#177700 R5 
#FMT10B,-(SP) 
#2,-(SP) 

14° 

#6,SP 

AML .REG+44,44(SP) 
aHL -REG+42,R5 


R 
#177700,R5 
R5,40(SF) 
#1.-(SP) 
52(SP) ,=(SP) 
R2,-(SP) 

~~(SP) 
56 (SP) ,=(SP) 
R1,-(SP) 
PC RETRY 
#ik SP 
ay . 
ML REG+44 ,44 (SP) 


40(SP) RO 
QML .REG+42,R5 


R 
#177700.R5 
R5.RO 

#1, ERROUT 
3§ 


13461 
MSG4 


rr LE eee —— 


Se Be Se Be Be Be Ge 








<I 








CZMLBBO PERFORMANCE EXERCISER MACRO M1113 
RAND4 TESTING RANDOM UNITS, SECTORS. DATA. WORD COUN 
15 sMLXG 
15687 3 
15669 101432 
15670 1014 23: 
15671 1014 132700 
15672 101442 135754 
15673 101446 
15674 10145 000001 24$: 
15675 10145 
1567 101 
15677 10146 
15678 1014 
15679 101466 
15680 1014 
15681 10147 000001 25$: 
15682 1015 
15683 10180 
15684 1015 
15685 1015 
15686 10151 
15687 10151 26$: 
15688 101514 132622 
15689 101520 136360 
13601 197856 002 ons: 
13633 1015 20 
15693 101540 000006 
13698 107863 — 
13696 191384 176376 
13697 101560 000001 29S: 
Ee Be 
18909 toleoe 800012 wee 
12963 1918 034460 
15708 10161 
15704 10161 31$: 
15708 10161 000400 
15706 1016 022670 
15707 101 
15708 101 143756 
15709 101 10 
18710 101640 05 
15711 101 
15712 101 135460 
15718 10168 000001 
15714 101 
15715 101 132522 
18716 101 
15717 101 
15718 10167 
18219 101674 
15720 101676 
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7-Ma 
TESTING RANDOM UNITS, SECTORS, DATA, WCRD COUNT Sooma 


0 

R2,-(SP) 

BOARD ,-(SP) 

Bo gUP-HARD. COUNT 


#1, ERROUT 
26$ 


57 
12442 

MSG3 

26$ 

#1, ERROUT 

26$ 

12443 

MSG3 

R2,-(SP) 

BOARD ,-(SP) 

PC UP. SOFT. COUNT 
(SP)+, (SP)+ 

#2, WPTR 

#20,SP 

6(SP) 

6(SP) #12 

29$ 

3$ 
30$ 


40$ 

@10(SP) ,10(SP) 
12(SP).R 
LOW.SECT(RO) .R5 
359$ 


EFN$21 


PC, ISOLATE 
#1 ,ERROUT 


mae REG*AC AO 


—_e oOo 


>; LUN,* 


; LUN,* 


KOUNT2 
KOUNT2,* 


; *,SECTOR 
; LUN,* 


SECTOR, * 


LL ee > 


SEQ 0337 


TOPS 
PA:< 


8081 


8075 
8086 | 


8089 
8095 








ee ene 


i a a rere ies apey Sere eenenaieteenepemerticstatenmmcmmmmseese 
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“ir, 
4 








ING RANDOM UNITS, SECTORS, DATA, WORD SEQ 0338 
sMILX4 37-Mar-19 19:24:42 TOPS 
: TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 27-Mar-1982 19:23:44  PAaz-< 
17 ASR RO 
17 177700 BIC #177700,R0 
17 MOV = (SP 
17 006640 MOV #FMT10B,-(SP) 
17 000002 MOV #2,-(SP) 
17 MOV SP..RO ; SP,* 7 
17 TRAP 3s «14 | 
17 000006 ADD £6,SP | 
1 ot 66 1532456 000024 32$: MoV QML .REG+44 24 (SP) : *,OLDSEC 8135 
17 17700 132446 MOV QML .REG+42.R0 : 8136 
1742 006200 ASR RO 
1744 006200 RO 
1746 200 ASR RO 
175 00 ASR RO 
175 00 ASR RO | 
175 00 ASR RC | 
175 04 00 177700 BIC #177700,RO | 
17 1 000020 MOV RO,20:SP) : *,OLDCHN | 
1766 012746 900001 MOV #1.-(SP) : 8144 
1772 016646 000032 MOV 32(SP) ,-(SP) > COMMAND, * 
1776 19 46 MOV R2,=(SP) : LUN,* 
000 012746 000400 MOV #400,-(SP) 
004 016646 000036 MOV 36(SP) ,-(SP) : PTR,* 
010 016646 000036 MOV 36 (SP). -(SP) : OLDSEC,* 
14 004767 144204 JSR PC RETRY 
020 706 000014 ADD #14, 
050 pores, 70> BNE as 
‘ 1766 132354 000024 CMP QML .REG+44, 24 (SP) : *, OLDSEC 8153 
j 000020 MOV 20(SP) ,-(SP) : OLDCHN,* 
1 1905986 | MOV QML .REG+42,R0 
10205 ASR RO 
38 102054 ASR RO 
759 1 ASR RO 
13760 1 ASR RO 
15761 1 ASR RO 
15762 1 ASR RO 
15763 1 177700 BIC #177700.R0 
15764 1 CMP RO, (SP)+ | 
15765 102074 BNE 346$ 
15766 102076 000001 100154 BIT #1, ERROUT : 8157 
15767 1 BEQ 33$ 
15768 1 TRAP 6-5 : 8162 
15769 1 -WORD 12444 
1 10211 .WORD MS 
15771 102114 .WORD 0 
15772 10211 33$: MOV R2,-(SP) : LUN,* 8165 | 
13 1 132216 MOV BOARD ,-(SP) | 
15774 102124 135272 JSR PC ,UP.HARD. COUNT 
15775 1 BR : 8153. 
15776 1 000001 100120 34$: IT #1, ERROUT ; 8170 





ae 


ZMLBBO PERFORMANCE E 
ANDS TESTING RANDOM 
13779 

1578C 

15781 10 9 O43 
15782 102142 10445 
15783 102144 012445 
15784 102146 011166 
15785 1 13 

15786 1021 i 
13788 108163 00140 
15789 1 186 104457 
15 1 186 gece 
15791 1021 11166 
12036 102172 

15793 102174 010246 
15794 8 176 016746 
15795 1 2 £82 
13038 10 022626 
15 18 1 aec2 
13038 102212 020566 
15 1 18 1 A006 
13801 5 005266 
15 1 26666 
13808 102986 008009 
15 102240 16 
15805 102244 005266 
15 102250 02 

15 102256 00 

15 102260 00016 
15 1 oF 062706 
F 9 1 0 207 
1581 

1581 

1581 

1581 

15819 


000001 


175632 
000032 
000032 


175562 
000034 


100076 


000016 


000052 


MERCISER MACRO M1113 
UNITS, SECTORS, DATA, WORD COUN 


2MLX4 


35$: 


42$: 


: Routine Size: ; : 
: Maximum stack depth per invocation: 


11 
mas 13:41 PAGE 820 


ADD 
RTS 


SEQ 0339 
TOPS 


ae lad bs 19:26:42 
TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 27-Mar-19 19:23:44 PA:< 


36$ 
57 


12445 
MSG3 


36$ 
#1 ,ERROUT 


36$ 


57 
12446 
MSGS 


0 

R2,-(SP) 
BOARD ,=(SP) 
PC,UP.SOFT 
(SP) +, (SP) 


Re 
40$ 
31$ 


10(SP) 


- COUNT 
* 


14(SP) 
14(SP) ,16(SP) 
41$ 


32(SP) 
32(SP) ,52(SP) 
423 


1$ 
#34 
PC 


602 words 


oSP 


LUN,* 


SECTOR 
SECTOR,* 


; KOUNT 
; KOUNT,* 


COUNT 
; COUNT ,REPEAT 


8175 


8178 
8184 


i eee 


[ee 


ee 
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ORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 321 
ING UNITS, SECTORS, DATA, WORD COUNT 


DEFINITION OF OPTION $5 
Zsbttl "DEFINITION OF OPTION 5° 
routi t 


3 


NUM_DRIVES; 
‘FEWER TIMES EACH RANDOM TEST WILL BE RUN. 
incr LUN from 0 to (.LSUNIT - 1) do 
begin 


if .DRIVE_STATUS C.LUN] eql ACTIVE 
then 








7-Mar-1982 19:26:46 
SpoMarn19RS 1ors$iee 


SEQ 0340 


TOPS-20 BL iss=-16 V2(212) 


7-Mar-19 PA:<NEALE>MLX4.BL1.5 (48) 


8508 —" 1° 1 
n ‘* * 
8 1 i ROUTINE: OPTS 
8 i i PURPOSE: TO EXERCISE THE ML11 SYSTEMS UNDER TEST IN A RANDOM 
3 14 i R, SO AS TO SIMULATE THE FLEXIBILITY OF TESTING 
15 THAT WOULD BE DONE BY AN OPERATING SYSTEM. 
$518 i THERE ARE 4 RANDOM TESTS WHICH ARE CALLED BY ‘OPTS' 
8218 i TO ACCOMPLISH ALL TESTING. IT IS THE RESPONSIBILITY 
8219 | OF THIS ROUTINE TO DECIDE HOW MANY T] S 
8220 i OM TESTS WILL BE EXECUTED. REFER TO "RAND! TO 
82 : | "RAND4* ABOVE FOR MORE INFORMATION. 
$555 
ry 4 local 
8225 REPEAT; 
ages 
é 27 PRINTB (SAY2, WRD34, RTNS): 
' "RUNNING OPTS® 
8 REPEAT = 9 - . 


:THE MORE UNITS THERE ARE ON THE SYSTEM, THE 


-SEE IF THERE ARE ANY UNITS 
fe 2 ‘WHICH HAVE 64K CHIPS (ML11-B) 


8236 
5 8S 7 ae DRIVE — 
389 $530 : : 
$58 8240 if .MLDT 
B5 8241 then 
360 Behe begin | le 4 * 
4e 824 REPEAT = 1: : THERE IS AT LEAST 1 UNIT WHICH IS AN ML11-B, SO 
3¢ 8244 !LOWER THE REPEAT TIME FOR ALL TESTABLE UNITS. 
: 45 exitloop; 
: “3 end; ‘ne 4 
8248 end; 'x 32 
im 2 
end; .* & 
8 31 a 
36 i AT THIS POINT, "REPEAT’ IS BASED ON THE SYSTEM CONFIGURATION. 
94 ! NOW WEIGHT THE LOOP COUNTS OF THE 4 RANDOM TESTS SO THAT RAND] 
35 ; AND RAND2 ARE MUCH QUICKER THAN RAND3 AND RAND4. RAND3 IS LONGEST. 
3$ ' RAND? (.REPEAT): 'TEST USING RANDOM DATA 


F 11 
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RAND4 TESTING RANDOM UNITS, SECTORS, DATA, WORD COUN SEQ 0341 
15877 :MLX4 7-Mar- TOPS-20 Bliss-16 v2(212) 
13 78 3 DEFINITION OF OPTION 5 7-Mar- PA:<NEALE>MLX4.BL1.5 (48) 
1 : 58 RAND? ( REPEAT); 'TEST U TA, WORD COUNTS 
1 ; 59 RAND3 (.REPEAT): ‘TEST y CTORS, DATA, WORD COUNTS 
15882 : 60 RAND4 ((.REPEAT#16))- iTEST Y ITS, SECTORS, DATA, WORD COUNTS 
1 ; 61 return; 
2 : 62 end; ‘es 1 «* 
15 -SBTTL OPTS DEFINITION OF OPTION 5 | 
15893 102272 004167 103016 OPTS: JSR R1,$SAVE4 ; 8207 
15894 10227 of 746 007656 MOV #RTNS .-(SP) ; 8227 
1 1 12746 907 4 MOV #WRD 34, = (SP) | 
1 1 Of 746 7100 MOV #SAY2,~(SP) | 
1 102312 012746 00000 MOV #3,-(SP) | 
15898 102316 01 MOV SP,RO : SP,* : 
15899 1 104414 TRAP «14 | 
15900 1 0127 : 099011 MOV #11,R3 : *, REPEAT 8229 
1 1 10 166703 132124 SUB NUM. DRIVES .R3 > * REPEAT | 
1 1 O16 077454 MOV LSUNIT,R4 : 8232 
15903 1 001 CLR R1 > LUN 
15904 1 3$ | 
15905 1 1010 1$: MOV R1,R2 : LUN,* 8235 | 
15 1 0 ASR R2 | 
15 1 ASR R2 | 
15908 1 ASR R2 | 
13 10235 034442 ADD #DRIVE.STATUS,R2 
1 310 10235 MOV R2,~(SP) | 
15911 1 MOV R1,=(SP) : LUN,* 
1 31g 1 177770 BIC #177770, (SP) 
15913 1 000001 MOV #1,=(S5 | 
15914 1 CLR -(§P) 
15915 10237 101756 JSR PC BLS$GT2 | 
1 916 1024 000010 ADD #10,SP | 
15917 1024 DEC RO | 
1 318 1024 BNE 2$ | 
15919 1024 MOV R1,R2 ; LUN,* 8238 | 
15920 10241 ASL 
15991 10941 36422 MOV —« PTABLE .ADDR(R2) .R2 | 
15922 1024 : MOV 6(R2) RO 
15923 102424 1 BIC #177770,R0 | 
15924 1024 000007 131720 BICB =_- #7, AML .REG+10 | 
15925 1024 131714 BIS8 RO, aML.REG+10 | 
2 ! 4 ? 000001 131724 gi #1, aML .REG+26 : 8240 | 
15928 102452 01 703 000001 MOV #1,R3 2 *, REPEAT & 43 
1 9 a 5 BR 4$ Py 4 
15930 1 1 2$: INC R1 > LUN 8232 
15931 7 1 3$: CMP R1.R4 : LUN,* | 








1 
PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE $55 0 0362 
or DEFINITION OF OPTION 3 a sze4e iis 
oe -Mare- 

139 ; — DEFINITION OF OPTION 5 | 1:23:44 PA:< 

15935 

i H ' rrr 10316 4$: AoV RS. (SP) ; REPEAT,*« 8257 

189 i rk, 1 ; —_ Mov R Hep) ; REPEAT,* 8258 

1 10267 79 170422 JSR PC ,RAND2 9259 

15941 1 1031 MOV RE SPD 3; REPEAT,* 

15942 1 ; § 172734 JSR PC ,RAND3 sien | 

15945 10251 10 R3,RO ; REPEAT,*« 

ae ites e & 

15945 10251 a ps 

1 ars 1 1 a RD 

ace Ieee Sa Bn 

13980 4 7 0006 3679 ADD H0, SP : 8207 | 

1 1025 “ 

13 + 1025 2 

i 82 words ' 

2 bee rete doit oee invocation: 13 words 

1398 

15960 


— —- re ee —_— — a 
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DEFINITION OF OPTION SEQ 0343 


2MLX4 7-Mar-1982 19:24:42 TOPS-20 Bliss-16 V2(212) 
: THE OPTION SCHEDULER 7Mar=1985 19:38:46 PA: <NEALESMLXG-OLI5° (29 


Zsbttl ‘THE OPTION SCHEDULER’ 
BGNTST; 


) 





: tee 

: i ROUTINE: 11 

; i PURPOSE: THIS IS THE ONE MAIN TEST OF THE EXERCISER. IT LOOKS 
97 : i AT THE AVAILABILITY OF TEST OPTIONS AND MAKES CALLS TO 
97 ; THE OPTIONS WHEN APPROPRIATE. 
376 : . THE QUICK VERIFY PASS INCLUDES THE FOLLOWING ROUTINES: 
9 i 


(1) INTEGRITY 
(2) OPTI 

(3) OPT 

(4) OPT 


SUBSEQUENT PASSES INCLUDE: 





‘THIS IS THE QUICK VERIFY PASS 


begin 

PRINTB (CRLF); 

PRINTB (SAY3, WRD2, PHR2, WRD4): 
'*BEGIN QUICK VERIFY PASS’ 
INTEGRITY 0: 

end; 


B298 §6if .DROP! eql 0 
5299 =then 
BSOC OPT? (); 


5 

‘ if .QUICK neq 0 
90 then 
5 


— 7 ; 


‘OPTION 1 IS AVAILABLE 


>Oo¢ = > 






















AC 8301 

if $302 if .DROP2 eql 0 

x $03 then '0°TION 2 IS AVAILABLE 
006 1 OPT2 (); 
5008 06 SE acnOnS oat © ‘OPTION 3 1S AVAILABLE 
5005 ’ en : , 

10 508 OPT3 (); | 

i 10 if .QUICK eal 0 

ie iin 

n 
018 18 -” 
016 14 if .DROP4 eql 0 





sEQ 0344 


i1 
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K4.BL1.5 (49) 


TOPS-20 Bliss-16 v2(212) 
PA: <NEALE 


ae | * " 
9% 28 8 5 s 
ee *e =~ a | 
wey — . 8s *e *e *e e*e%e e*e e*e e*e ® eve e*e 
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S sve gearve S% ay Be Ss zx Se 8 
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Gat Ne a ese ee a CENTERS SMC SSE ERTL 
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WOBSESESSESESA IES AU ES Bab gags nese 
oe ee 
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> *e Cc ee “ = ™N ~ w w wo 
- £ *¢s 
a w bert 
” ~w w 
zg B25 
ss 6 3 os 
Se =5 bh BBs seers See gy oY xY A oe 9 
x SS 8 &3 RCARR TOR SR —h INS Ss eS n 
i o - S& Sess =6o =o -oee-es °F 
RRMA SESSA LILLIS=SSSAssIssIsSrsossoss 
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THE OPTION SCHEDULER 
: Routine Size: 54 wo 


> Maximum stack depth. ns invocation: 


-SBTTL 11 THE OPTION SCHEDULER 


JSR PC,$T1 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 


; Routine Size: 6 words 
> Maximum Stack depth per invocation: 


6 words 


0 words 


SEQ 0345 
60ers? 2:24:42 TOPS 
7-Mar-1 1:23:44 PA:< 
8322 


-_- — — = 








erate —_ 


K 11 
CZMLBBO PERFORMANCE EXERCISER MACRO M1113 29-MAR-82 13:41 PAGE 327 SEQ 0346 
Tl THE OPTION SCHEDULER 
re 





- 19:26:42 TOPS-20 Bliss-16 V2(212) 
. Soper 1388 19.38.44 PA: <NEALE>MLX4.8L1.5 (50) 
18150 me END OF PASS SUMMARY 
16111 * ” 
; Zsbttl "END OF PASS SUMMAR 
e118 : 3 é routine EOP : novalue = mere 
18118 B35, «2—(Degin 
| i <a 
5 i T FOR EACH DRIVE. IF AN 
18119 : ¢ Bewtoe ARRAY HAS ANY HARD OR SOF T ERRORS, THEN ITS ERROR 
16120 ; oea7 i COUNT WILL APPEAR, AND IF THE COUNT IS TOO HIGH, 
16181 ; Sese i THEN A DIAGNOSIS TO RUN THE ML11 PROM MAINTENANCE 
161 ¢ : S3 gj PROGRAM WILL ALSO APPEAR. 
161 : ; o338 THE FOLLOWING IS A SAMPLE REPORT FOR 2 DRIVES: 
16126 : 39 
0 | 
161 ; ; 5341 | PERFORMANCE SUMMARY 
1O1¢) F MBYTES TRANSFERRED: 
18131 e343 108 Mav TES WRITTEN 
i 
161 5 : 5346 i 1925 MBYTES WRITE CHECKED 
16134 S UNIT: 0 DRIVE: 1 SERIAL #: 1234 
16] 3 B329 SOFT ERROR COUNT : 9 
aw i : 
Jeige 3 iia. ERROR COUNT: 11 
18139 cee; MAR ENO? Count: 
e120 38 i ARRAY 10: 2 
1eiey : 54 OC ARRAY 15: 3 
18142 : 8355 TRANSFER RETRIES: 0 
So py ; See ; : : 1 SERIAL #: 9876 
1e148 | 8357 DRIVE BREED (CONTROLLER FATAL ERROR) 
1e1ee : B305 i "SOFT ERROR COUNT : 100 
16147 ; set a hip eee was PROM MAINTENANCE PROGRAM 
16168 $i ARRAY 15; 8h ==> Ru ML11 PROM MAINTENANCE PROGRAM 
1elsy B3ez ‘ HARD ERROR COUNT: o 
1183 : 5 i ARRAY 14: 1 
188 : 5 i ARRAY 15: 1 
18 : . 4 TRANSFER RETRIES: 0 
1e186 oe 
a ee 
13 : 35) HRD-TOT; 
18160 : ? TRY-TOT: 
181 + f ) tae ‘THE OPERATOR HAS ALLOWED THE SUMMARY TO PRINT 
18108 : 76 then 





A -ee NE —— ee a — —_ 
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CCODE 3) : 
PRINTB (FMT2, CAUSE3): 
!* (OPERATOR SELECTED TEST LIMITS INCORRECTLY)* 


CCODE 4] : 
PRINTB (FMT2, CAUSES); 
:" (ALL RETRIES FAILED FOR A NON-FATAL ERROR) 


BBO PERFORMANCE EXERCISER 
HE OPT] SCHEDULER 
16165 ;MLX4 7-Mar-1982 19:24:42 
19198 3 END OF PASS SUMMARY 7ohar 1985 19:38:46 
yb db. 3 8377 pogin 'e 2 
Jols s 8 8 PRINTB (CRLF); 
16170 ; 837 PRINTB (SAY1, PHR17): 
16171 ; 8380 ! * PERF E SUMMARY’ 
10156 5 1 PRINTB (CRLF); 
161 s 8 4 PRINTB (SAY1, PHR12): 
16174 ; 8 ‘NUMBER OF YTES TRANSFERED: 
16175 ; Sane INTB (FMT14, .WR_MILLIONS, PHR19): 
16176 : 5 '*XXXXX MBYTES WRITTEN® 
16177 ; 8 PRINTB (FMT14, .he MILLIONS, PHR20): 
16178 ; 8 '*XXXXX MBYTES R ¥ 
16179 ; 8 PRINTB (FMT14, .WC_MILLIONS, PHR13); 
16180 ; 2 89 !*XXXXM MBYTES WRITE CHECKED’ 
10186 5 8391 incr LUN from 0 to (.LSUNIT = 1) do 
te) ; Sa08 begin 's 38 
16184 ; 839 UNIT = .DRIVE; 
16185 ; 8394 
16186 ; 8395 if .DPR eql 0 
16187 : 8396 then 
161 s 8397 PRINTB (FMTGA, PHR7, .LUN, WRD11, DRIVE) 
16189 ; 8398 '*LOGICAL UNIT: X DRIVE: Y° 
16190 ; 8399 else 
16191 ; 8400 SAYWHO (.LUN); 
Uy Bb 3 8401 
1ole2 3 a20 '*LOGICAL UNIT: xX DRIVE: Y SERIAL #: 2777° 
16195 ;: 8404 if .DROPT_DRIVES [£.LUN] eql ACTIVE 
16196 8405 then 
16197 ; 8406 meq in ‘a 4 & 
16198 ; 8407 PRINTB (SAY2, WRD11, WRD21); 
16199 ; 840 "DRIVE DROPPED’ 
16200 ; 840 
16201 ; zis selectone .WHY_DROPT [.LUN] of 
1 Bg : 117 set 
j j 8412 
1 3 8413 (CODE 1] : 
16205 ; 8414 PRINTB (FMT2, CAUSE1); 
16206 ; 8415 is (NOT POWERED UP) 
6207 ; 8416 
: 17 (CODE 2) : 
: 418 PRINTB (FMT2, CAUSE2): 
: eel !* (NOT AN ML11 UNIT)® 


ed ee ed ed ed eed eed eed eed ed 
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T1 THE OPTION SCHEDULER SEQ 0348 
TOPS-20 Bliss-16 V2(212) 


sMLX4 Somer 1388 19:26:42 
; END OF PASS SUMMARY 7-Mar-1982 19:23:44 PA: <NEALE>MLX4.8L1.5 (50) 


V2S Soo 


ae ee ee ee ee es 
> . > . os e ‘’ . > . & 
con 
a 4 - 


2 
rs 


co 
~~ 
unr 


RRRE ERS 
SS 


13 
1 
16226 : 8429 (CODE 5) : 
16225 : 8480 PRINTB (FMT2, CAUSES): 
g ae !* — (CONTROLLER FATAL ERROR) * 
1 : CCODE 6) : 
1 : Be PRINTB (FMT2, CAUSE6): 
16 Q 84 5 !* (DRIVE FATAL ERROR)' 
1 : 8437 CCODE_7] : 
16 : 84 PRINTB (FMT2, CAUSE7): 
16 4 i 8439 '* (ECC HARD ERROR) * 
1 : 8441 [CODE 8] : 
1 8442 PRINTB (FMT2, CAUSES): 
1 844 1" (ECC LOGIC FAILURE) * 
1 8444 tes; 
16240 8445 
41 8446 end: in 4 
4 8448 SFT_TOT = 0; 
44 8449 RD-TOT = 0: 
45 8450 TRY-TOT = 0: 
of are our ey from 0 to 15 do 
‘ in 
6549 8454 SFT_TOT = .SFT_TOT + .SOFTS C.LUN, ARRAY, 0, 16, 01: 
5250 8455 HRD_TOT = .HRD_TOT + .HARDS C-LUN. .ARRAY. 0. 16. 0): 
5251 8456 TRY_TOT = .TRY_TOT + . TRIES C.LUN. .ARRAY. 0. 16. 0]: 
6 2 ts end: 
5254, 8459 PRINTB (FMT7, PHRS, .SFT_TOT): 
5 8460 !" SOFT ERROR COUNT: DDBpD' 
S28 Bese 


if .SFT_TOT neq 0 
then 


incr ARRAY from 0 to 15 do 
if .SOFTS C.LUN, .ARRAY, 0, 16, 0) neq 0 
then 


begin 
PRINTB (FMT9, ARRAY, .SOFTS C.LUN, .ARRAY, 0, 16, 0)): 
r ARRAY XX: YYYYY' 


5266 7 
$y. 72 ! 
srt og ; VER CZMLBB THE FOLLOWING CODE HAS BEEN COMMENTED OUT BECAUSE SOFT ERRORS 
5265 2 : SHOULD NOT BE COUNTED TOWARD THE CALLING OUT OF THE PROM MAINENANCE PROGRAM 
527 06 i ' NOW SEE IF THRESHOLDS FOR SOFT ERRORS 
$37@ oe . : HAVE BEEN REACHED FOR THIS ARRAY BOARD: 
5276 79 I 
75 80 : Tf ((.ARR_TYP eql 0) and (.SOFTS C.LUN, .ARRAY, 0, 16, 03 geq S16K_LIMIT)) 


r 
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ed ed eed od eed ed 
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SEQ 0349 


TOPS=20 Bliss-16 V2(212) 


-Mar-19 
PA:<NEALE>MLX4.BLI.5 (50) 


$f ¥ 1339242 
END OF PASS SUMMARY 7-Mar-1982 19:23:44 
: then 
PRINTB (FMT2, MSG2); 

!* ==> RUN ML11 PROM MAINTENANCE PROGRAM’ 

: - ((.ARR_TYP eql 1) and (.SOFTS C.LUN, .ARRAY, 0, 16, 0] geq S64K_LIMIT)) 
en 

PRINTB (FMT2, MSG2); 

; 


a --> RUN ML11 PROM MAINTENANCE PROGRAM’ 
eng; 


PRINTB (FMT7, PHR18, .HRD_TOT); 
:* HARD ERROR COUNT: DDDBD' 


if .HRD_TOT neq 0 
then 


incr ARRAY from 0 to 15 do 
if .HARDS C.LUN, .ARRAY, 0, 16, 0] neq 0 
then 


begin 
PRINTS. (FMT, ARRAY, .HARDS [.LUN, .ARRAY. 0. 16. 02): 
ARRAY XX: YYYYY’ 


14 , | 
: NOW SEE IF THRESHOLDS FOR HARD ERRORS 
HAVE BEEN REACHED FOR THIS ARRAY BOARD: 


: VER CZMLBB CHANGED TESTING HARDS [TABLE] TO TESTING PM_SBE_CNT CTABLE] 


TFL {-ARRTYP eql 0) and (.PM_SBE_CNT C.LUN, .ARRAY, PM_SBES_SUM] geq H16K_LIMIT)) 
PRINTB (FMT2, MSG2); 
!* ==> RUN ML11 PROM MAINTENANCE PROGRAM’ 
i VER CZMLBB CHANGED TESTING HARDS CTABLE] TO TESTING PM_SBE_CNT [TABLE] 


TFC S-ARR_TYP eql 1) and (.PM_SBE_CNT C.LUN, .ARRAY, PM_SBE$_SUM] geq H64K_LIMIT)) 
en 
PRINTB (FMT2, MSG2); 


a =-> RUN ML11 PROM MAINTENANCE PROGRAM’ 
end; 


PRINTB (FMT7, PHR6, .TRY_TOT); 


Le Se 








tenes EE 
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THE OPTION SCHEDULER SEQ 0350 
3 ;MLX4 7-Mar-1982 19:24:42 TOPS-20 Bliss-16 v2(212) 
¢ 3 END OF PASS SUMMARY Spar 1385 19:38:46 PA:<NEALE>MLX4.B8L1.5 (50) 

$ §2 3 !* TRANSFER RETRIES: DDDDD' 
; 85 5 if .TRY_TOT neq 0 
Fi j S2 then 
1: 6538 incr ARRAY from 0 to 15 do 
; : 540 if .TRIES C.LUN, .ARRAY, 0, 16, 0) neq 0 
4; 541 then 
5; > 3t$ PRINTB (FMT9, .ARRAY, 
f ; 8544 "  SARRAY, 6, 16, 03); 
9: 8546 1* ARRAY XX: YYYYY" 
20 $ 854 end; ‘xs 3 * 
a - 
33 ; 8550 i Examine the number of single 
54 ; o22! : bit errors detected during 
55; 3e¢ ! execution of the exerciser 
2§ : 855 ! thus far. If any were detected 
a” 3 8554 ! then print them out to the 
38 : S222 ! operator. 
gae9 “3 
«18 bY 
51; 8558 if .SBES_COUNT gtr ZERO 
£) : Soop then . 
55 ; 560 begin 
m4 : B20) PRINTB (CRLF); . . 
65; 306 PRINTB (SAY1, PHR21); ‘Print single bit log summary report 
i‘ ‘ 856 PRINTB (CRLF); 
67 ; 8564 PRINTB (SAY1, SBESHEADER): !Print the column headings 
JE Ps S20? 
y ; 8367 i Print to the console terminal for the 
71 : 8568 ! operator review all the detected single 
aS 3 $297 : bit errors during the execution of this 
5373 ; 570 ! exerciser thus far. 
mi Be : 
A} : 578 incr index from 0 to .SBE$_COUNT - 1 do ‘Print all errors logged in this table 
; in 
8 : P 8575 PRINTS (FMT16 ‘This is the printing tormat 
; Be $26 -SBE_LOG L. index, UNIT$_SBEJ, ‘Print the failing unit of this sbe 
80 ; Pp Ti -SBE_LOG C. index, BROS _ SBE. ‘Print the failing board number 
+ P 8 -SBE_LOG CL. index, BNK$_SBEJ, ‘Print the failing bank number 
Ge : P 85 ~SBE_LOG C. index, BIT$_SBE] ‘Print the failing bit number 
8: : ; P -SBE_LOG C.index, SUM$~SBEJ); ‘Print the total sbe'’s found 
e enc; 
Be 83 dl 
ele e en 6 
87 ; bz 


tS eee at 


SEQ 0351 
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27-Mar-1 
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END OF PASS SUMMARY 


MLX4 


PREARRS 


'x 2 
‘xs 1 « 


PRINTB (CRLF); 


end; 
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ZMLBBO PERFORMANCE EX 
OP END OF PASS eoMmany 
16445 

1eae$ 

1 103132 010600 
16249 19 134 104414 
16450 1031 0167 
18632 Tosiee 99083 
16453 10 159 1 
16454 1031 5 309 
18633 1810s 
1ec89 4 166 84 
164 8 103172 14 
16460 103505, OReee> 
16461 103212 001024 
1e20§ {03534 916003 
14464 1 3224 O19 46 
19666 | O12 746 
16069 1 12746 
18065 tosese Big 
16470 103250 104414 
1S 198889 es 
16678 1 5 

164 10 

16474 1 

16475 1032 

1 26 1 f 

1 103272 

e258 1Gasce 

16480 | 302 010046 
16482 108306 pusrie 
Ish 198s Ses 
1g Bsa Geeks 
: : 532 11 

16489 10333¢ 746 
16490 103340 012746 
ISS IDES Sars 
16493 1 1 
16494 1 6 104414 
16495 1083c> $303 
1 tena te 
19498 | 74 13948 
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076650 000046 


001246 
034422 
1 0 
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000400 
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007240 
sone 
000005 
000012 


132236 


034444 
177770 
000001 


101032 
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131156 
131146 
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3$: 
4$: 





END OF PASS SUMMARY 


SP,RO 
LSUNIT ,46(SP) 
R5 


27$ 
R5 RO 
R 





R4 
#400, 
3$ 
PT 
6(R3) .-(SP) 
#WRD11,-(SP) 
R5,-(SP) 
#PHR 


-REG+10 
@ML .REG+12 





#DROPT .DRIVES.RO 
»7(SP) 

R (SP) 

#177770, (SP) 

#1,=(SP5 

-(SP 

PC BL$GT2 

#10,SP 

14$ 

#WRD21,-(SP) 


#WRD11,-(SP) 
#SAY2 ,~-(SP) 
(SP) 


RS 
WHY .DROPT(RS) ,R3 
RS ,#1 


e 


#CAUSE1,-(SP) 


Ee 


E.ADDR(RO) .R3 


——$—_ 


SP,* 


LUN 
LUN,* 


LUN,* 


SP,* 


LUN, * 


; LUN,* 


LUN,* 


SP, * 


* (LUN) ,* 


37 


-Mar-1 
-Mar-19 


19; 
19: 


SEQ 0352 


4:42 
3:44 


TOPS — 
PA:< | 
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OP END OF PASS S$ 








16557 

188 

16560 1 1 
18860 103654 090413 
16386 1 aie 
16563 1 12746 
1eaee 1 12746 
19 5 : : 746 
1 rg 1 104414 
1 1 re 
1 1 0 7 
ear : a 5066 
16872 1 4 

165 1 ay 010 
16574 10371 

16575 103714 

18876 10371 

10378 1037 1 

165 1037 00 
16 1037 1040 
16 1 4 
16 1 

16 1 

16584 | 

6586 | 


ooo. ~— ss 
aR 


el eel et el el cel ls eal el eal meld cen cel el cel 





Eee 


000010 
o10736 
2 


032714 
033314 
033714 


000017 


000046 
000042 





15$: 


16$: 


17$: 








2 


END OF PASS SUMMARY 
12$ 

RS #10 

138 

#CAUSEB, -(SP) 
#FMT2,-(SP) 


SOF TS(R3) ,46(SP) 
HARDS(R3) ,44(SP) 
TRIES (RS) ,42(SP) 
R2.417 

ngs 

46(SP), (SP) 


#FMT?. (SP) 
#3,-(SP) 
RO 





a? 


aoe 


SOF TS(R3) ,R3 
178 





14 
R 
R2,417 


eee 


ARRAY 


; ARRAY,* 


*,SFT.TOT 
T 


SFT.TOT,* 


SP,* 
SFT.TOT 
ARRAY 
ARRAY ,* 


: ARRAY,* 


5 


7-Mar-1 
7-Mar-1 


SEQ 0354 


TOPS 


19:26:42 
19:23:44 PA:< 


8410 


x 
SSS 








————. - ietieneetiintese tee - 
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EOP END OF PASS SUMMAR SEQ 0355 
SMLXG 7-Mar-1982 19:24:42 TOPS 
16614 - END OF PASS SUMMARY 7-Mar-1982 19:93:46  paee 
7 BLE 1 
16613 | $5 Orr 36 900052 18$: MOV SOCSP) . (SP) : HRD.TOT,* 8493 
16618 1 7 012766 01 MOV #PHR18. (SP) 
ils ISIE Slaree ee a 
Wed? JOCI1e Soneee — che | 
§ 1 57 6 000060 60¢SP) ; HRD. TOT 8696 
1 ¢ 1041 5001 R1 : ARRAY 8499 | 
i i i H 103 _ Ris : ARRAY. « —_ | 
1 1041 R3 . . 
166 15 bots 2 033314 WARDS (R3) ,R2 | 
16631 1 143 10246 R2,-(SP) : 8504 | 
16632 104144 01 146 1.=(SP) : ARRAY,* | 
16633 104146 012746 006534 #EATS,~(SP) | 
16635 Jocis6 o16GR 0005 PR) ; SP,« | 
1 104160 104414 4° a iy | 
186 1¢ 32777 002000 130202 #2000. aM .REG*24 : 8516 
1663 2 1 17 329 012264 000012 BM. SBE.CNT(RS) #12 | 
16641 104202 012746 011120 wMSG2 ,~(SP) 8518 | 
16648 1 % 012746 1 #FMT2.~(SP) | 
1 104212 012746 2 #2,-(SP) | 
ence a deere 14° dui 
| 
1 1 SP 
; th BO 2008 130136 208: #2000.am. .REG*24 : 8525 | 
1s i 5 329 012264 000012 BM. SBE.CNT(RS) #12 ! 
166 1( 46 746 011120 #MSG2.~(SP) : 8527 
1 ¢ i 746 160 #EMT2.=(SP) 
166 a g 74 2 os =(5P) iis | 
16655 104264 104414 16° alc | 
ig 104266 000006 #6,SP | 
166 1 , 7 10 21$ #10,SP _— 8503 
38 it le 000017 RI #17 : ARRAY, * | 
1 1( 16616 56 238: 56(SP), (SP) : TRY.TOT.* 8532. 
1 1¢ 12746 010026 (SP | 
1 1 1g 12746 46 #EMT7.-(SP) | 
1 1¢ 1274 #35 ,~-(SP) 
3 1 10 14 . om 
1 194 00s 706 000064 64 (SP) : TRY.TOT 8535 





_———— eee eel ——— ee ee -—- = - 


—os= ——— _— eee _ ee 
ett —— —_—_—-—_— . —...__ 
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EOP END OF SEQ 0356 
16669 ZMLX4 37-Mar-1982 19:26:42 TOPS 
16670 ; END OF PASS SUMMARY 7-Mar-1982 19:23:44 PA:< 
16678 104 1425 2 
16473 1 CLR R zy ARRAY 8538 
16674 1 1 24$: MOV RG RS : 8540 
16675 1 ADD R2,R : ARRAY,* 

16676 1 ASL 

16677 1 16 033714 MOV TRIES(R3) RB 

16678 1 141 BEQ 25$ | 

16679 1 10346 MOV R3,-(SP) : 8544 

1 1 10246 MOV R2,-(SP) : ARRAY,* 

16681 1 12746 006534 MOV #FMTS, -(SP) 

1 1 127 3 MOV #3,-(SP) 

1 104 1 ~RO : SP, 

1 104 74 1064614 TRAP s «14 

16685 10437 0627 000010 ADD #10,SP | 

1 1 25$: INC R2 : ARRAY 8538 

1 104404 000017 CMP R2.417 : ARRAY,* | 

1 1 19 4 BLE 24$ | 

1 10441 706 000024 26$: ADD #24, SP F 8392 | 

16690 10441 0 INC R > LUN 8391 | 

16691 1044 000046 27$: CMP R5.46(SP) : LUN,* | 

16698 1 426 BGE 28s 

16693 1044 167 176520 JMP $ | 

1669% 4 00 $7 106226 28$: ST ; $. COUNT : 8558 

ie 104440 012746 007066 MOV WCRLF .-(SP) : 8561 | 

16097 104444 012746 000001 MOV #1,-(SP) | 

16698 104450 01 MOV SP,RO : SP, 

1 104452 104414 TRAP 

16700 104454 ot 716 MOV APHR21, (SP) : 8562 

16701 1 12746 007072 MOV #SAY1,-(SP) 

16702 1 ot 746 MOV #2,-(S5P) 

16703 1 1 MOV SP.RO : SP,* 

16704 104472 106614 TRAP | 

16705 104474 012716 007065 MOV ACRLF , (SP) : 8563 | 

16706 1 12746 000001 MOV #1,-(SP) | 

16707 1045 1 MOV SP.RO : SP,* | 

16709 19484 osrie 2 nov PSBESHEADER, (SP) 8564. 
e e | 

16710 104514 or 746 is ated MOV ASAY1,-(SP) | 

16711 1 12746 000002 MOV #2,-(5P) | 

1 rie 104524 01 MOV SP,RO : SP,* 

16713 1 104414 TRAP | 

16714 1 5 16705 106130 MOV SBES$. COUNT ,R5 : 8573 

16715 1 008 CLR R2 > INDEX 

16716 1 BR 30$ | 

16717 1 29$: MOV R2,R3 : INDEX,* 8580. 

16718 1 ASL R | 

1621 1 ASL R 

1 1 346 1 6 011266 MOV SBE .LOG+2(R3) ,-(SP) 

16721 10655 011264 ADD #SBE.LOG, 

16 : 1 356 304 MOV (R3) RS 

16723 1 ASR R4 


SEQ 0357 


i 
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EOP END GF PASS SUMMARY 
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~ wn 
wv xn Sx ~ 
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—-a. @ co eco coc 
NWT 
== 
we 
. ee 
on 
ce 
wre 
sf 
re 
Kn 
wry 
v 
+. 
be 4 
+ tay las w 
a a 
a 2 a. 
—” ta ee " 
ees ®e *e@ *6 e*e *s e°*e 
” 
a = | 
| 
°o 
z 
So 
w 
c 
> °o 
Oye 
~ 
; - 
We 
o 
Ww > 
~ ~ Cc 
W a. a. -— 
A Tr -w w wT Ww -_ w 
~ = aw ax cc a. .- aS 
sas aver ofy oa ja Sa oa 
ive Sa1Rz ON RwOmWOW a. a AH aa. e 
oO ~ we 8 nw « Kero WWM MEO WMH <£ 
~ aha a ee i de 4 - @& eu § es = 
(vu) Seeeeeaere—eeeae caecaenanannaae Seaareaa wo 
oo 
eu 
La] 
— — — — z= S 3 bm 
2222 2eeesel Ieee eeseSeEREETELTSEERESEE - 
= 
~~ Sx 
* “a « a és 
a oS -_ ™~ 
ee ~~ wy wm *e *e@ 





~w Ll 
: S : S S 
~m ~ ~~ ~ S 
~~ oa _ - 
Ooo oO wowowvoos.r 
operas SIRSSSSSISIB=S 
oNe - 
Sor Sr SSsssesesssneee 


Ws SRS Seyenseren 
PUP RSSSRAE SEES SETS EE ERTS PE RSSRSSS 


SS SS eee eee eee 






wv - —AUMwsr DWAOCRK—UM SNH COO wn 
LANE RS EARS SSR SS SOOO OR OR ESOS SO SORE 


ee ee eee eee eee 


——— <a 
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S SUMMARY 


EOP END OF PAS 


16772 sPMLX4 


16777 — 
1677 


— 
oa 
~N 


~~ S 
Bwae II 


— — 
AAO 


2 aed ws 


ao 
NNN 
LEAF 


seacsee 
82338 


3333 


ce ce ee ed ed eed eed 
o 
— 


—) 


: 2 OOSNYAUSWN =O 
ed el el ee a el eh ed ce ee ee eh ee ed ed eh ae ed 
Nas 


N“N 
Be 






WMMAUWWY 
SUVRSSS 


a eh Dh el el lh a ad eh a ed ed ed ad ed aed 
. *.18.%¢ - . “ . e616 . . ete ee 





RSNRRRSS 
MOREE ER= 
ALS 


=—O& 
NEOOAQAQ 


™ 
o 


Sts 
= 


g7~ar-198 1 
CLEANUP CODING SECTION 7-Mar-1982 1 
Zsbttl ‘CLEANUP CODING SECTION’ 

BGNCLN; 

THE CLEANUP CODING SECTION IS EXECUTED AFTER 

: EACH PASS THROUGH THE EXERCISER. 

EOP_COUNT = .EOP_COUNT + 1; 

if .EOP_COUNT eql 1 

then 


PRINTB (SAY3, WRD3, PHR2, WRD4) 
:*END QUICK VERIFY PASS‘ 


else 
PRINTB (FMT3, WRD3, WRD4, -EOP_COUNT); 
!*ae END PASS XX *«° 
EOP (); 
return; 
ENDCLN; 
LCLEAN: INC 
5750 CMP 
007212 
007730 
seri 
000004 


152736 
1 000001 


125706 1$: 





175700 2$: 





: Routine Size: 36 words | 
; Maximum stack depth per invocation: 


et 


.SBTTL LCLEAN CLEANUP CODING SECTION 
FOP. COUNT .#1 


5 words 


9:5 


4:42 
3:44 


s SP,* 


; SP ,* 


SEQ 0358 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>MLX4.8L1.5 (51) 


a 


ie oo 


SEQ 0359 





Es 
1 

1 -SBTTL LSCLEAN CLEANUP CODING SECTION 

1 105 $e LSCLEAN:: 

1 3 192 767 177664 JSR RG-LCLEAN ; 8607 . 
16850 108045 G0G30 3 RIS, 

188s 

1 ; ; Routine Size: 4 words ; 

; ; Maximum stack depth per invocation: 0 words 

1685 


ee ed ed eed eed ed 
SERRERES 
wd aed od Se Se Se 
ooo 
See 
oo 
— 
a 
3 Lx 3 
Ww ed wed 
t= ] — 
wn 
mm 
—~ 
SS 
~~ 
i ] 
Me 
eo 


000000 ee a 4>>/2> 
- = + 
16870 105050 000000 TSFREE::"WORD 0 
1687 
16878 105050 LSLAST== SLAS+é 
16874 000000 TSPTHV== _ 
} 76 
1687 .SBTTL $END.LINK CLEANUP ; 
16881 105052 SEND.LINK]: | SEND-LINK CLEANUP CODING SECTION 
16882 105052 000207 RIS ss PC 8608 
1 } 


; Routine Size: 1 word 


| ae) 


rE 








ene 


120 
MACRO M1113 29-MAR-82 13:41 PAGE ba] 


a 


ZMLBBO PERFORMANCE EXERCISER 

ND.LINK CLEANUP CODING SECTION SEQ 0360 
2MLX4 he alah 19:24:42 TOPS 
; CLEANUP CODING SECTION 7-Mar-1982 19:23:44 PA:< 


; Maximum stack depth per invocation: 0 words 


Sagerieeiee 
sae 
7 
; 


1 

1 

1 ; OTS external references 

1 -GLOBL BLSGT2, SSAVES, S$SAVE4, $SAVE3 
16905 -GLOBL S$SAVE2, BLS$PU2, BLSSHF, BLSDIV 
16 -GLOBL BLSMOD, BLSMUL 

1690 

16908 

16909 

16910 

16911 

ents 

1691 ; Size: 10337 code + 5852 data words 
18914 ; Run Time: 01:43.8 

16915 : Elapsed Time: 02:08.4 

ib 44 3 ry Used: 161 pages 

Lb a4 fe : Compilation Complete 

16919 000001 END 


a ee ee ~ 





CZMLBBO PERFORMANCE EXER R - 
SYMBOL TABLE E EXERCISE MACRO M1113 29-MAR-82 








M12 
PAGE 341-1 


ASSEMB= <0 . eon ¢ +; 2 
BANK 03 344 CSBRK = 000022 DRIVE. 034442 G 
BIT.NU 01 C$8SUB= 000002 DROPT. 444 G 
BITO. = 16 CSCEFG= 00004 1 002236 G 
BIT0O = 16 CS$CLCK= 000062 DROP2 40 G 
B1T01 = 000002 G C$CLEA= 000012 DROPS 002242 G 
sas = Sons ¢ | ERHBES hes Baas Shae § 
BIT04 = Sooee5 G CS$CVEC= 0000 ECCDIS 009984 ¢ 
B1T05 = 000040 G CLN= 000044 EFNS21 62 G 
BITO? = 000200 ¢ CSDRPT= 000034 “NEW= 000035 ¢ 
BITO8 = 000400 G $DU = 000053 “ PWR= 2 ¢ 
BITO9 = 001000 G C = 000003 EF -RES 76 
BIT1 = sia G CSERDF= 000055 STA 40 G 
BITIO = 002 G CSERHR= 000096 -RB= 032670 
BITI¢ = 810000 G CSERSF= 000054 — ose G 
BITI4 = Ocd00 cSEGen= Soot) EOP CO Os5%0 © 
BIT15 = 100000 G CSESEG= 000005 ERRALK 200 G 
BIT2 = 000004 G ESUB= 000003 ERRMSG 176 G 
BIT3 = 000010 G CSETST= 000001 ERRNBR 174 G 
BITS = 900020 G CSEXIT= 000032 ERROUT 002260 G 
site gouiog © Serres Gooey = Ext = Supoos & 
BIT8 = 000400 G C$GPHR= 000042 ESL OAD= tats 
BIT9 = 001000 G C$GPLO= 000030 FILLER 061266 
BL$DIV 005170 G C$GPRI= 000040 FMT1A 126 
BL$GT1 004234 G CSINIT= 000011 FMTIB = 006142 
StSeAS Sos0ae ESMANI= SoogsD FMT 10a: poeeeG 
Gime uric g ° | ERers Some) FRH See 
BLSPUT 520 G CSOPEN= 000034 FMT12B= 006756 
BLS$PU2 004614 G CSPNTB= 000014 FMT13 = 007024 
BLSSHF 5214 6 CSPNTF= 000017 FMT14 = 6 
BOARD 2 CSPNTS= 000016 FMT15 7060 
Suey Be SERIE BFA: 
CAUSE1= 010460 CS$RDBU= 000007 FMTS = O0ciee 
CAUSE@= 2 CS$REFG= 000047 FMTZA 16 
CAUSE 6 CS$RESE= 000033 FMT4B 5 
cust: O0eGe = CSREVI OO0003 © Ene = 06879 
ee He AR Bee Sa 
CAUSED 10735 RRR Oo) Eg = aeees 
CHOOSE e166 CSTPRI= 000013 Gay tee: 
CLRTBL 5 DATA.C 032700 FSAUTO= 000020 
COMP. C DECODE 037176 = 

CONF IG DFPTBL 002210 G FSCLEAs Mitty 
CRLF = DIAGMC= 000000 F$DU = 000016 





Lee ee = 


FSEND = 000041 
FSHARD= 9 4 
FSHW = 


F$SW = 000014 
FSTEST= 000001 
GENT 040732 


GR 
ISOLAT 
ISR 


— 
(cS SL ee 
\—~laP Jas 
sa ol 
z-~ 
| 


=< 
z 
-— & 
—_ 


e338 


: 


genres 
<320— 


ae me me me eh ed et = | et ee 


seeeeeererse: 


o 


“SNMnwn 


ee ee eee i) 
La 


EM HMMMMM 


° 
o 
VIR 
rs 


Qacc? 

Sss 

oo—r" 3800-0 
RSVSSSESNEANIES 
DAADAAAAIAAAAAOOOH 


Mn 


SEQ 0361 


ee 
a 


s+ 


ocr EEE 


-_—_——— eee 
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SYMBOL TABLE SEQ 0362 
$HW 210 G MSG4 = 011202 P.AAD 126 P.ACI 007500 P.AEN 011070 
LSICP_ 902104 G MSGS = b115%6 P.AAE o061c5 P.ACJ 007504 P.AEO 17120 
LSINIT 2G NUM.DR 034456 G P.AAF 006160 -ACK ey P.AEP 13588 
LSLADP 8 G ONEF IL= 1 P.AAG 006166 -ACL 7514 P.AEQ 11202 
LSLAST= 1 G ONLY 002232 G P.AAH 006216 P.ACM 007520 P.AER bas 18 
LSLOAD 00 G OPT1 51460 P.AAI 006252 P.ACN 007524 QH1 $ 3 
LSLUN 74 G OPT 054054 P.AAJ sag th -ACO 0075 QH 002351 
LSMREV G OPT P.AAK 006320 ACP 007534 QH 002374 
LSNAME G OPTS 062444 P.AAL 006376 ° 007542 QH4 002425 
LSPRIO G OPTS 102272 P.AAM 006446 ° 007550 QS 00 
LSPROT 126 G OSAPTS= 1 P.AAN 00646 ° 007554 QS10 00 
LSPRT 112 G = 000001 P.AAO 006534 P.ACT 007560 QS11 003554 
LSREPP G = 000001 P.AAP 006564 P.ACU 007564 Qsi2 poRees 
LSREV oe 010 G OSBGNS= 000001 P.AAQ 006640 P.ACVY 007570 QS13 003657 
L$RPT 005474 G OSDU = 000001 P-AAR 006654 “ACW 007574 QS14 003724 
LSSOF 450 G OSERRT= 000001 P.AAS (006710 ~ACX 007626 QS15 003763 
LSSPC O38 G OSGNSW= 000001 P.AAT 006756 P.ACY 007634 QS16 04030 
LSSPC 0G OSPOIN= 000001 P.AAU 007024 P.ACZ 007642 QS17 a066 
LSSPTP 68 024 G SETU= 000001 P.AAV 007046 ADA 007650 QS2 002732 
LSSTA G PATTBL beseoe G P.AAW 007 P.ADB 007656 QS3 093007 
LSSwW OS 22 G PATTER 032676 P.AAX 007066 C 007664 QS4 003047 
LSTEST 114 G PHR1 = 007714 P.AAY 007072 P.ADD 007672 Qs5 0 
L$TIML 002014 G PHR10 = 010120 P.AAZ 7100 P.ADE 007700 QS6 003147 
Leni 00 43 G PHR11 = 010140 P.ABA 007112 ADF 007706 QS7 003454 
L1 10222 Ab = 010202 P.ABB 007130 P.ADG 007714 0Ss8 0034 
L10001 ¢ PHR15 = 010240 P.ABC 007152 P.ADH 007730 Qs9 003514 
L1 ¢ 2 14 = 010266 P.ABD 7200 P.ADI 007746 QUICK 032674 
L1 ye PHR15 = 010304 P.ABE 007206 P.ADJ 007770 64 G 
MARPAT 38 G ae = 010322 P.ABF 007212 P.ADK 010004 RAND1 070540 
MLB10 = 47 PHR17 = Bi osee P.ABG 007220 P.ADL 010026 2 073124 
MLB171 = 007500 PHR18 = 010366 P.ABH 007250 P.ADM 010050 RANDS 075444 
ey = 007504 PHR19 = dh adh P.ABI 007240 P.ADN 010066 4 100 
MLB1S = 007510 PHR2 = 007730 P.ABJ 007246 P.ADO 010100 RANGE 002224 G 
MLB14 = 007514 PHR20 = 010430 P.ABK boesee P.ADP 010120 FF 022670 
MLB15 = 007520 PHR21 = 005662 P.ABL 7264 P.ADQ 010140 RCBUFF= 023670 
ey = 4 ‘4 PHR5S = 007746 P.ABM 007272 P.ADR 010202 RDBUFF= 022670 
MLB17 = PHR4 = 007770 P.ABN ge P.ADS 010240 RD.COU 034322 
as = 007 PHR5 = 01 P.ABO 7312 P.ADT B hens RD.MIL 034326 
MLB19 = 007 ae = 01 $6 P.ABP 007322 P.ADU 010304 . 034324 
= 0074 PHR? = 010050 P.ABQ 007352 P.ADV 010322 04561 
MLB2O = 007 en = 010066 P.ABR 007336 P.ADW 010342 REFRES 002252 G 
mLB2) = 007554 PHRS_= 010100 P[ABS 007344 P'ADX 010366 RETRY 046924 
ML = O PM.SBE 012264 P. ABT 7354 P.ADY 010410 RETRYI 034340 
MLBES = 007 PNT = 001000 G P:ABU 007370 P:ADZ 010430 REZ 005362 
MBs = 007570 I. = 002000 6 P-ABV 007400 P[AEA 010444 RES 005360 
ML = Boer PRIOO = YUY000 G P. ABW 7412 P.AEB 010446 RE4 00535 
MLB4 = 007440 PRIO1 = 000040 G P!ABX 007416 P'AEC 010450 RN 005370 G 
MLBS = 007444 PRI § = 000100 G P.ABY oboe 4 P.AED 010454’ RNDSEC O70 ¢40 
nay, = 0074 ? PRIOS = 140 G P.ABZ 7430 P.AEE Hrs a RNDU 070536 
MLB? = 0074 PRIO4 = $09 G P.ACA Soke P AEF Boe RNDWC 70204 
me = 0074 PRIOS = $ G P.ACB 7440 P.AEG 4 268 RPTR 32672 
MLBY = 007 pros o 00 G P.ACC 007444 P.AEH 4's RTNO = OR eee 
»REG G PRIO7 = 340 G AC 007450 P.AEI Biae 6 RTN1 = 007626 
= PTABLE 422 G A 007454 P.AEJ 010710 hh = 0076 
ee a a ne eo a 
es bad e e = 
msc = 1 P.AAC 006042 P.ACH 007472 P.AEM 011002 RTNS = 007656 


eo == 


SS - _ = 
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SYMBOL T SEQ 0363 


SVCSUB= 000001 T$NS1 = 1 VEC _—- 032710 WRD36 = 007370 
SVCTAG= 1 TSPTHV= 000000 6 WAITER 044429 Uno 37 = 0074 
SVCTST= 1 TSPTNU= 000000 WBUFF 012670 WRD38 = 00741 
SYSERR_ 041710 TSSAVL= 177777 WCBUFF= 013670 WRD4 = 00721 
SSLSYM= T$SEGL= 177777 WC.COU 034 WRD4O = 007416 
TOP-SE 034300 G TSSUBN= 000000 WC-MIL 034 WRD41 = 007424 
TRIES 033714 TS$TAGL= 177777 WC. THO 034332 WRD6 = 007 

TRTOO = 010444 TSTAGN= 010005 BU F= 912670 WRD? = 

TRTO1 = 0104 TSTEMP= WHY.DR 034446 G WRITE 045424 
TRT10 = 01065 TSTEST= 000000 WPTR 032670 wR. COU 14 
TRT11 = 010654 T$TSTM= 177777 WRD11 = 007240 UR-MIL O34 
TSECT 002230 G T$TSTS= 000000 WRD1S = 007246 WR. THO 0343 
TSAR 2 TSSHAR= 01 WRD16 = 007256 XSALWA= 

TSCODE= 020130 T$SHW = 010000 WRD17 = 007264 X$FALS= 0 
TSE TS$PRO= 01 WRD18 = 007272 XSOFFS= 000400 
TSEXCP= T$$SOF= 010003 WRD19 = 007300 XSTRUE- 000020 
TSFREE 105050 G T$$SW = 010001 WRD2 = 007200 SEND.L 105052 G 
T 11 102712 G WRD20 = 007312 SPATCH 004134 G 
TSHILI= 000012 UAM = 000200 G WRD21 = 007322 SSAVE2 005262 G 
TSLAST= UP.HAR 037422 WRD24 = 007332 SSAVES 005276 G 
T$SLOLI= 000001 UP-RD. 045240 WRD25 = 007336 $SAVE4 005314 G 
TSLSYM= 01 UP-SOF 040104 WRD3 = 007206 S$SAVES 005334 G 
TSNEST= 177777 UP-WC. 045332 WRD34 = 007344 Tl ~—- 102536 
T$NSO = 000009 UP-WR. 045146 WRD35 = 007354 


- ABS. 105054 000 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 31919 WORDS ( 125 PAGES) 
NAMIC Timo 1558 WORDS ( 82 PAGcS) 


DY 
ELAPSED TIME: 209: 
CZMLBB.BIN,CZMLBB/CR/=SP=SVC/ML ,CZMLBB. DUC oMLX2,.0TS RANDOM, MLX3 ,MLX4 


ea eT ee ae —-- “= 


_ = —— . a 


= = — ER ee 





ee 


C 
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CZMLBB CREATED BY MACRO ON 29-MAR-82 AT 13:44 PAGE 1 

SYMBOL CROSS REFERENCE CREF SEQ 0364 

SYMBOL VAL REFERENCES 

ASSEMB : 0 . 34 6-13 

BANK 0 ¢ 51685. *98-2978 = *99-2991 100-3052 103-3237 105-3302 108-3485 109-3530 155-6371 
155-6 

BASE.A #81-1650 +*88-2289 89-2338 97-2909 

BIT.NU 1-165 *99-3005 103-3226 104-3290 108-3474 109-3522 

BITO G 483-1754 

BIT G 453-1744 

BITO G 43 1763 

B1T0¢ G 1762 

BITO G 483-1741 

B1T04 G 4 1740 

BITOS G #83-1739 

B1T06 G 483-1738 

BIT G 483-1737 

BIT G a3 1736 

BIT G 483-1735 

BIT1 G #83-1753 

BIT10 G 483-1734 

B1T11 G 483-1733 

ots G #83-1732 

BiT1 G 483-1731 

BIT14 G 483-1730 

BIT15 G 483-1729 

BIT¢ G 483-1752 

BIT G 483-1751 

BITS G #83-1750 

BITS G 483-1749 

BIT6 G 483-1748 

BIT G 483-1767 

a8 eis 

BLSDIV G #37-1170_ = 185-8022 205-9118 209-9381 225-10222  273-13132  282-13730 297-14575 298-14593 

scr g  ilage I-Tes 

BLSGT2 G #18-384 164-6887 180-7728 0-8836_ 205-9143 220-9931 242-11178 265-12395 273-12846 
81-13705 297-14560 322-15915 399-8856. $0368, 

BLSLAS G #340-1 340-16869 3460-16873 

BLSMOD G #38-1201 = 418-4116 = 26112206 9263-12297 2265-12380 265-12404 341-16906 

BL ¢ r35-390° 5-2787 3641-16906 

BL$PU2 G #29-829 47-220 47-231 50-339 85-2133 = 85-2140 §=—s- 111-3672 112-3685 118-4112 

BLSSHF G 13-4 1 13-184 13-188 13-192 14-217 19-406 19-409 19-413 19-417 

ois, ¢3-395 $3759 23-605 24-632 29-838 29-842 29-848 30-880 

BOARD 482-1 59-5906 308 104-3246 104-3271 105-3306 108-3490 109-3534 155-6370 
195-6379 *155-6382 = 168-7119 169-7140 171-7267 171-7284 «185-7996 185-8013 187-8108 
187-81 04-90 53-9109 209-9350 209-9367 211-9467 211-9484 2 5-10196 3253-10213 
227-10 27-10325 2467-11460 24648-11481 g3g-11/ 253-11760 25712018 258-12039 259-12125 
é 9-12142 273-1 106 73-13123 73-15216 @7 -13233 ‘ -13980 ¢87-14001 288-14085 289-14106 
02-14838 3502-14855 304-14946 304-14963 318-15671 318-15688 $19-15773 $20-15794 











SS _ 


i 





ee —— 
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SYMBOL CROSS REFERENC 
SYMBOL V REFE ES — 
BOE = 1 
BR.LEV 1-1653 *88-2291 2292 
CAUSE] = 1 94-2733 3-16499 
cAUSeS = 1 94-2756 ~16511 
CAUSES = 190 831 96-2858 334-16519 
CAUSES = 1908 384-165 7 
CAUSES = 1909 ~16535 
aes = 1910 5334-16543 
CAUSE? = -1911 : -16551 
CHECK _ 6000 4147-5981 129-6089" 153-6265 = 154-6301 9154-6312. 169-7147 169-7152. 171 7238 182-782 
qo) 97 : 4 wa 222-10026 244-11290 249-11569 254-11848 273-12989 283-13815 299-14673 
CHOOSE 046166 14 5 181-7804 201-8905 206-9166  221-10004 244-11269 249-11548 54°11827 273-1291 
83-1 357 299-14655 5314-15484 ' - 
CLRTBL 0 rE ~2078 111-3644 
COMP . C 2 5 Adah ot: *116-3994 118-4102 
CONF IG #93-270 112-3678 
CRLF = 066 Wee stese 88-2301 89-2330 154-6342 325-16041 332-16410 332-16419 337-16696 337-16705 
sper ark 
= 00906 - 
= 000022 #6-13 
= ¢ J00C #6-13 
= 000¢ {3 #6-13 
= 900 a6-13 
LANA 4 
= 004 1 16-13 
++ 
= 00000¢ #6-13 
= 00003¢ #6-13 
= 000044 46-13 
= 00002 = Recl3 
= poo 16-13 6-65 
= 0000C - - 
= ¢ 2005 oe te 
= YUUUUSE ~ 
= 006 106C #6-13 
= 000087 #6-13 
= 0001 it 
= 2000 
2st 
= 000¢ - 
= 000C #6-13 
= Sate 13 
= 000C #6-13 
- 90003¢ #6-13 





— ee eee ee —-- — - — 


ee Oe 


, Se 





tn eeneneieneeieeeeeneeeeneenemesen 
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C 
SYMBOL CROSS REFERENCE SEQ 0366 


SYMBOL V REFERENCES 

= 900011 #6-1 

= 000C r+ a 

= 00005SC 

= 000031 #6~1 

= 000023 #6~1 

= 000¢ #6-1 

= 900014 

= 000017 6-1 

= 90001 #6-~- 

= 90001 1 

= 00037 #6~-13 

= 000007 96-13 

= 000047 #6~-13 

= yUUL 3 #6- 46-13 

= 090003 #6~13 6-65 

= 000021 #6~13 

= 000025 #6-13 

= Dood) 16-1 

= 000037 #6-1 

= 900013 #6-1 
032 00 #81-1644 116-3993 118-4104 
0371 8 8-2972 100-3049 155-6373 
902210 G 47-117 

= 90000C =] 6-13 

é #35-1091 37-1171 7051908 
835 01-8931 206-9193  222-10035 244-11299 249-11578 254-11857 


#133-5198 166-6966 182- 
273-129648 284-13828 299-14682 asoosR 











G 46-201 47-214 #82-169 111-3653. 164-6881 180-7722 200-8830 205-9137 
20-9925 2242-11172 265-12 273-12840 281-13699 297-14554 322-15909 
G #8-160 ry ES o5-3 186 
G 46-201 47-2 #82-1695 85-2135 3335-16479 
G #8-161 83-1723 +*85-2148 25-16054 
G #8-16 83-1724 285-2149 25-16057 
G #8-16 53-1724 85-2150 -16060 
G 48-164 -1724 %*85-2151 : 5-16065 
G #8-166 83-1724 85-2152 5-1 , 
E G #8-169 83-1725 - 131-4772 131-4807 131-4858 131-4956 138-5458 
E G a 98-15697 83-1722 185-8027 210-9390  225-10227 258-12048 273-13137 287-14008 303-14869 
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- 5 8-325 #8-326 8-326 ~326 8-326 #8-327 8-327 
8-327 #8-328 - 8-328 8-328 #8-329 8-329 #8-330 8-3 
8- o-3 - #8-331 o-¢ 1 8-33 8-331 #8~332 8-332 
8- # "3 -3 -333 8-333 #8-334 8-334 8-334 8-334 
°- -335 335 #8-3 8-336 8-336 8-336 #8-339 8-339 
#7-1 #8-196 #8-196 #8-2 #8-277 #8-339 #8-339 


#6~-65 
$3 #7-117 #7-117 #7-117 #7-117 #8-143 #8-143 #8-143 #8-143 
18-259 #8-259 #8-259 #8-302 #8-302 #8-302 #8-302 #9-379 #9-379 


3 
3 #8-196 8-196 48-277 8-277 #8-339 8-339 #9-385 9-385 
“Fo #7-117 #7-117 #8-143 #8-143 #8-259 #8-259 #8-302 #8-302 








eee 





MLBB CREATED BY MACRO ON 29-MAR-82 AT 13:44 


C2 

MACRO CROSS ae 

MACRO NAME NCES 
: 1 


MSSETS 


MSXFER #8~314 #8-314 
#8-329 #8~-329 

POINTE e748 

vc #6~-1 6-13 

XFER 8-319 8-324 

XFERF o- 353 8-316 

XFERT #8-322 #8-3529 


#8-3 
#8-316 


iat 
EB 
#7-101 
i 


#8-316 
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CREF 


#8-276 


#8-143 
#7-101 


48-328 
#8-333 


#8-319 


48-352 


#8-143 
#8-272 


48-3354 
#8-319 


£0-275 
n8- 327 
#8-259 


#8-272 
#8-314 


48-334 
#8-322 


Mo 


r8- 327 
48-333 
#8-259 
gi 
15 
Bs 
#8-330 
48-322 


#8-313 


r8- 82 


#8-302 


48-273 

#8-315 

is 5 
3 


-33 
#8-324 


#8-313 
oa 354 


SEQ 0385 


ee ew ee eee _-— 


